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(57) Abstract 

An information model based on a physical system, such as the physical equipment in a power system. An object-oriented 
information model provides a generic power system model that may be applied to any of several specific applications. In the in- 
vention, physical pieces of equipment are represented as objects with attributes that can be verified (primary data) and relations 
including connectivity, grouping, and location. The model handles all known configurations of power systems and is extensible to 
new configurations. Attribute input is supported from primary sources and is used to calculate data required by applications pro- 
grams. A window-based graphical user interface uniquely simplifies operation of the database. Thus, the present invention pro- 
vides a single, easy to use, source for all proprietary application databases at a utility. 
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INFORMATION MODEL BASED ON A PHYSICAL SYSTEM 

5 

A portion of the disclosure of this patent document contains 
material that is subject to copyright protection. The 
copyright owner has no objection to the facsimile 
reproduction by anyone of the patent document or the patent 
10 disclosure, as it appears in the Patent and Trademark Office 
file or records, but otherwise reserves all copyright rights 
whatsoever. 



BACKGROUND OF THE INVENTION 

15 

1. TECHNICAL FIELD 

The present invention relates to object-oriented systems 
analysis* More particularly, the present invention relates 
20 to an object-oriented information model based on an 
underlying physical system, including associated 
infrastructure and personnel, for exairple the ec[uipment which 
makes up an electric utility power system. 



25 2. DESCRIPTION OF THE PRIOR ART 



Electrical power systems are large complex physical systems 
with many types of interconnected electrical equipment • Such 
systems are often modeled for various reasons within the 
30 departments that make up the utility which is responsible for 
operating the power system. 



35 



Each department within the utility typically maintains its 
own specific database, usually eirploying a proprietary 
application program. This proprietary application program 
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is tightly coupled to a particular operating system, computer 
manufacturer, data structure, etc. That is. the proprietary 
application programs employed in the various departments of 
the utility are vendor specific and cannot be interfaced with 
5 or exchange data with the application programs used in other 
departments (and often with, those within the same 
department) . Thus, in a utility, information is not freely 
exchangeable between the various departments of the utility, 
such as planning, engineering, operations etc. 

10 

The present state of the art is such that the various 
proprietary application programs are, at best, difficult for 
a department to use and maintain. That is, the user 
interface in most such programs requires the manipulation of 
15 strings of raw data, or the entry of data into crude forms. 
Thus, highly skilled personnel are required for the 
performance of a tedious and repetitive task. 



20 



25 



30 



Additionally, known database structures as are employed in 
such application programs merely provide virtual models of 
a power system based on abstract mathematical descriptions 
of system equipment. Such models are generic approximations 
of actual installed equipment within the power system. Thus, 
there is an inherent error in the model. When the error that 
is present in several separate databases within the utility 
is considered, it can be seen that the cumulative error 
renders data collection and reporting within a utility a 
Tower of Babel. 

Accordingly, the utility is faced with occupying its 
personnel with the many problems attendant with such 
application programs: redundant entry of the same data in 
different formats, inconsistent and inaccurate local 
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departmental models, stale data as information within one 
department does not track other departments, slow response 
on a system level to equipment changes, etc., all in the 
context of many complex application programs that are 
5 difficult and expensive to use and maintain. 

SUMMARY OF THE INVENTION 

The present invention is an object-oriented information model 
10 of a physical system, including associated infrastructure and 
personnel, such as an electrical power system. The preferred 
embodiment of the invention provides a single, comprehensive 
description of the equipment in a power system, including 
network topology, operational constraints and limits, 
15 telemetry and communication details. 

The organization of information in the power system data 
model is derived from an object-oriented analysis of the 
power system. In the invention, physical pieces of equipment 
20 are represented as objects with attributes that can be 
verified (primary data) and relations, including 
connectivity, grouping, and location. 

The user interface provided by the present invention is based 
25 on a windowing environment. Where possible, data input is 
a matter of selection from a set of recognizable elements 
contained within the system. In this way, entry error is 
significantly reduced. 

30 The present invention also provides interfaces to existing 
application program databases. Import interfaces allow 
existing data to be captured- Export interfaces allow 
continuing support of base application programs by the 
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30 



present invention. Accordingly, the present invention 
provides a single, easy to use source for all proprietary 
application program databases at a utility. 

^ BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 is a data flow diagram of an information model in 
accordance with the present invention; 

10 Fig. 2 is a block level hierarchical representation of a data 
structure in accordance with the present invention; 

Fig. 3 is a block level representation of a first level 
database menu in accordance with the present invention; 

Fig. 4 is a block level representation of a type hierarchy 
menu m accordance with the present invention; 

Fig. 5 is a block level representation of a group hierarchy 
menu in accordance with the present invention; and 

Fig. 6 is a block level representation of a find object 
operation in accordance with the present invention. 

! 

DETAILED DESCRIPTION OF THE INVENTION 

The present invention is best understood by referring to the 
Drawings in connection with review of this Description. 



15 



20 



25 
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Power System Data Model 

The present invention provides a database that finds 
application, for example, in the electric utility industry 
5 to hold attribute and connectivity data for electrical power 
system equipment. The invention reduces duplication of data 
and, through import and export capability, provides a single 
point of maintenance for the operations, planning, 
engineering, information services, and other departments of 
10 the electric utility • This feature of the invention 
eliminates the need to maintain multiple application program 
databases within the utility by replacing the multiple 
databases with a single, conprehensive point of maintenance. 

15 The power system data model of the present invention allows 
the utility to define and maintain connectivity information 
for electrical equipment. The present invention has an 
information flow, as shown in block diagram form in Fig. 1, 
that provides a central repository of information about the 

20 equipment which forms the electrical generation, 
transmission, and distribution network of the electric 
utility. This central repository is referred to in Fig. 1 
as the power system data model 10. 

25 The power system data model is implemented in a relational 
database. The power system data model provides a data 
transfer path 11 for information transfer, including attri- 
bute and connectivity information. This information is 
transferred to a process 14 which generates input files. 

30 These input files are in turn exchanged, as indicated by the 
information transfer path 27, with the proprietary 
application program databases 16 that are used by the various 
departments within the utility, e.gr. design, analysis. 
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10 



15 



planning, operations, and real-time software applications, 
including supervisory control and data acquisition (SCADA) ' 
distribution automation (DA/DMS) , Energy management systems 
(EMS) , and dispatcher training simulators (DTS) . 

The invention replaces the need to maintain multiple 
proprietary application program databases with a single 
comprehensive point of maintenance in the power system data 
model 10. The external database generator 14 (14a- l4n) uses 
the power system data model 10 to create data exchange files 
which contain attribute data in an appropriate format to 
populate any of several proprietary databases 16 (16a-l6n) 
for use by operations, engineering, or other applications. 

For exair^jle, an electrical utility Energy Management System 
may integrate real-time and analysis applications from 
several different vendors, each vendor having a different 
proprietary database. in such system, the maintenance 
associated with electrical network modeling is performed by 
20 the present invention. The data exchange files are 
transferred from the power system data model (exported) to 
the host system for the target database. 

A data transfer path 25 is provided which allows information ( 
from the various proprietary databases to be imported to the 
power system data model through a data port 26. The data 
port receives existence, attribute, and connectivity 
information from the proprietary database and provides this 
information along a data transfer path 27 to the power system 
30 data model. 

An historical data storage system 12 is included in the 
preferred embodiment of the invention that is capable of 



25 
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storing timed samples {i.e. minimiam, maximum, and average 
values every thirty seconds), continuous records (i.e. alarm 
and event logs), and snapshots (i.e. current system state) 
for later analysis. Such samples are provided along a data 
5 transfer path 23, which transfers information that is 
captured by an historical data capture process 18. The 
historical data capture process is in turn part of a data 
transfer path 25, which provides information to the 
historical data capture process from the various application 
10 programs 16 (16a- 16n) . The historical data storage system 
uses the power system data model 10, as shown by the data 
transfer path 13, to analyze historical data within the 
context of the power system. 

15 The database design is easily extensible such that the power 
system data model can be expanded to encompass an enterprise 
data model. Thus, connections may be provided to external 
databases for AM/FM, GIS, and corporate computer systems. 

20 For example, in some embodiments, the invention may operate 
in conjunction with an AM/FM/GIS system 20, in which 
existence and connectivity (described further below) 
establish one data transfer path 19 to the power system data 
model, and in which attributes establish another data 

25 transfer path 21 with regard to the power system data model. 

The invention may be operated in a client -server environment 
including data servers, transaction managers, client 
applications, and user interface servers. Thus, a data 
3 0 server may be used to serve data to all interested users 
(clients) . For exairiple, user clients who are located 
throughout the power system network, a resource manager for 
the databases, and a transaction manager for a distributed 



wo 94/06087 



PCr/US93/08233 



8 



database system may all be served by data servers. A key 
point of the present invention is that the server provides 
a single (logical) model of the power system. Thus, there 
is only one conprehensive and consistent model of the power 
5 system, but that model may be distributed and/or replicated 
for better access throughout the power system network. 

The invention provides processes both for interactive 
maintenance 22, having an attribute data transfer path 17, 
10 and for decision support 24, having an attribute/connectivity 
data transfer path 15 and a past performance data transfer 
path 29 . 

The present invention is implemented in relational database 
15 technology. Thus, relational tools are applied to data 
maintenance where traditional proprietary databases usually 
offer a user very little help, that is, in the areas of SQL 
access, ad-hoc queries, report generation, network access, 
and decision support. The present invention may be 
20 implemented using known database programming techniques. 

See, for example, Object-Oriented Svstems Analygns. Shlaer 
and Mellor, Yourdon Press (1988) for a discussion of 
relational database techniques that are applicable in 
implementing the present invention. 



25 



Objects 



The present invention is based on extending relational 
database technology and object-oriented systems analysis to 
30 a power system model. In object-oriented systems analysis, 
abstractions are produced that correspond to sets of physical 
things. These things are referred to as objects. Each 
object has a set of attributes which describe the object's 
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characteristics (discussed more fully below) . A specific 
occurrence of an object, in which the object's attributes are 
populated with data, is referred to as an instance. All 
instances within a set of instances have the same 
5 characteristics and are subject to and conform to the same 
rules of behavior. Referential attributes are used to 
maintain the relationships between different objects. 

The information model of the present invention describes: 

10 

. - objects 

- attributes of those objects; 

- relationships between objects; and 

- behavior of the object. 

15 

An object is an abstraction of a set of real -world things, 
i.e. underlying physical equipment, etc., such that: 

- all real-world things in the set (the instances) have the 
20 same characteristics; and 

- all instances are svibject to and conform to the same rules 
and behavior. 

Objects can be tangible things, roles, events, interactions, 
25 and specifications. Examples include: 

- Tangible things: transformers, switches, lines; 

- Roles: operators, dispatchers; 

- Events: incidents, alarms, trouble calls, plans, schedules; 
30 - Interactions: connections, measurements, groupings, 

correlations; and 

- Specifications: equipment models, validation lists. 
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10 



20 



25 



30 



Lists of objects may be generated using a grouping mechanism 
to view the contents of the user-defined interactions, as 
well as lists of all the groups to which any single object 
belongs. Lists can also be generated using ad-hoc queries 
with pattern matching of object names. 

An object is named based on the following criteria: common 
names are preferred, the names should be -strong- names, the 
names should have the same dimension and be precise, the 
names should be based on the object's essential nature, and 
the name may be content based. 



One aspect of the present invention provides a power system 
data model which is derived using an object-oriented analysis 
15 of a power system. The model represents the physical types 
of equipment and their connectivity. The model contains 
rules that maintain referential and electrical integrity and 
which simulate the behavior of the power system. 



The power system data model defines the existence of and 
assigns unique keys to equipment in the power system. Based 
on object-oriented systems analysis, the preferred embodiment 
of the power system data model describes four main types of 
equipment (described more fully below): conducting 
equipment, sensing equipment, computer equipment, and support 
.equipment. Relationships between equipment items are 
modeled, as are groupings that may be imposed by utility 
specific conventions. 

Types 

Typing is used in the present invention to enhance the 
description of ari object in the database. For equipment in 
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the power system, typing is used to define a classification 
scheme that identifies the exact type of equipment to a 
degree of resolution defined by the end user. The same 
technique is used to identify other types of objects in the 
5 invention. 

In the invention, supertypes and subtypes are used to 
categorize objects that are usually classified in a 
hierarchy. Thus, subtypes and supertypes are used to capture 

10 similarities between classes of things in the real world, 
including attributes and behavior. Subtypes and supertypes 
are used initially to model separate objects and then to 
bubble up the common attributes. This procedure establishes 
a type hierarchy which is used as a framework for the power 

15 system data model. In establishing subtypes and supertypes 
a bottom up system analysis is employed. Thus, the starting 
point is each physical element in the system. 

A subtype is a more specific description of a parent 
20 supertype. A subtype therefore contains all properties 
possessed by its supertype • Thus, the attributes of a 
subtype are a property of a supertype object. For example, 
if all the subtypes of Switch have attributes describing 
their most recent state and normal state (Open or Closed), 
25 these attributes can be assigned to the switch object. They 
are then 'inherited' by all the objects that are a subtype 
of Switch. Other attributes may be common across many types 
of objects (e.gr. manufacturer; location) . These attributes 
may be moved up into classification objects, such as 
30 Conducting Equipment. 

The present invention provides for three kinds of types: 
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- system types; 

- user application types; and 

- user types. 

5 System types are pre-defined and may not be modified because 
they are necessary and fundamental to the correct operation 
of the power system model. User application types are used 
by user-written applications to define well known or reserved 
types. User types are defined and modified as necessary to 
10 express the desired depth of classification. 

The three kinds of types are best understood as graphically 
depicted as follows: 

15 Key Value T ype 
Ik-IOK Systems 
10k- 2 Ok Users 



20 900k-1000k 

. IM- 1 . OlM User-defined 



999.99M-1000M 

Each new type must be related to a previously defined type. 
This relationship forms a supertype-type hierarchy. The 
hierarchy supports an unlimited number of levels but each 
type has one and only one supertype. 

For example, a particular type of switch, e.g. a minimum oil 
circuit breaker, would be 'typed' by application of the 
invention as follows : 



25 



30 
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!• Object 

2 . Equipment 

3. Conducting Equipment 

4. Switch 

5 . Breaker 

6. CB 



10 7. Oil CB 



8. M-OCB 



All things are objects. 

It is a piece of real equipment . . • 

. . . that is a part of the power 

system. 

It is a switch and. . . 
. . .it can break load and. . . 
...it is a circuit breaker 
and . . . 

...it is an oil circuit breaker 
and* • • 

... it is a minimum oil circuit 
breaker . 



15 The invention defines types (Object, Equipment, Conducting 
Equipment, and Switch, above) that are used to allow the 
power system data model to interpret the type of object 
that is modeled. The user defined types (Breaker, CB, Oil 
CB, and Minimum-Oil CB, above) allow interactive users and 

20 user written applications to alter model behavior based on 
the type . 



These types are depicted graphically as a hierarchy of 
types where the lower levels are subtypes . The four main 
25 types of equipment — conducting ecpaipment, sensing 

equipment, computer equipment, and support equipment 
(discussed below) — are supertypes of the other equipment 
types, which may, in turn, be supertypes of still other 
types . 

30 

One unique aspect of the present invention also provides 
for basetypes (or fundamental types). I.e. a formalized 
point in the type hierarchy that encompasses a number of 
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similar subtypes (similar in attributes and behavior) . 
The preferred embodiment of the present invention provides 
Breaker, Fuse, and Disconnect as base types, for example. 
All are s\ibtypes of Switch (which could also be a 
5 basetype) . Base types are used to map objects for 

editors, database tasks, and for procedures that model 
behavior. For example: 



10 



Switch 



- Breaker (capable of interrupting load and reclosing) 

> OCB, M-OCB, VCB, ABCB, GCB 

- Fuse (capable of intersnipting load) 

> Current limiting, power, cutout, vacuum 
15 - Disconnect (not capable of interrupting load) 

> Station, transmission, distribution 

Attributes 

20 Once the con?)onents of a power system and the arrangement of 
these components is set forth in terms of object-oriented 
analysis, the objects are assigned attributes. An attribute 
is the abstraction of a single characteristic possessed by 
all the things that were abstracted as objects. In the 

25 invention, it is preferred that attributes be collected for 
each of the objects identified. During this process, some 
of the attributes assigned to a group of objects are shared 
in common. 

30 The invention provides for obtaining a set of attributes for 
objects, where the attributes are: 

- complete: they capture all the information pertinent to the 
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object they define; 

- fully factored: each attribute captures a separate aspect 
of the object abstraction; and 

- mutually independent: the attributes take on their values 
5 independently of one another. 

Attributes are assigned to four different categories 
depending on the type of information they capture: 

0 • descriptive: intrinsic characteristics of an object, which 
are further divided into two categories, i.e.: 

- primary: usually physically verifiable by observation, 
e.gr. line length, tower type, conductor type; and 

- secondary: not usually physically verifiable, but 
5 rather derived from others in the database by calculations 

that model behavior, e.gr. impedance and capacitance; 

• naming: arbitrary names and labels, e.g-. line name; 

• referential: facts that relate an instance of an object 
to an instance of another object, e.g. manufacturer, location 

0 (implemented using surrogate keys, discussed below) ; and 

• identifiers: a set of one or more attributes that can 
uniquely identify an instance of an object, e.gr. line name, 
segment name. 

5 Attributes that can be derived from the primary data may be 
calculated automatically. For exanple, the primary data for 
a transformer is entered directly from the nsuneplate or test 
report. Individual winding characteristics are derived from 
this information. Transmission line impedances and 

) admittances are derived from the primary data of conductor 
characteristics, tower geometry, and line segment lengths. 
Derived data may be input in lieu of primary data, if 
desired. 
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One unique aspect of the present invention is the use of two 
types of descriptive attributes. Thus, one goal of the 
present invention is to calculate secondary attributes where 
5 possible. Otherwise, direct entry of the attribute is 
employed. In this way, the present invention allows the 
modeling of system behavior. 

Groups 

10 

Objects may be related to each other by assigning them to ( 
groups. Any particular object may belong to any unlimited 
number of different groups, although each object has a single 
primary group. Groupings are arbitrary collections of 
15 objects. Groups have meaning only as specified by the user. 
The objects in a group are related because they are member 
of (belong to) the same group. Groupings are modeled as 
relationships that may be imposed by utility specific 
conventions . 

20 

Relationships are abstractions of a set of associations that 
hold systematically between different kinds of things in the 
real world. There are an infinite number of relationships 
between types of things in a power system (and a large number 
25 of things themselves) . Prior art approaches to modeling 
power systems express each relationship individually, 
resulting in unwieldy database structures. In the present 
invention, relationships may be: 

- one-rto-one; 

30 - one -to-many; and , 

- many- to -many . 

For example: 
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- a substation contains equipment; 

- telemetry monitors equipment; 

- lines are composed of segments; 
5 - equipment may have a location; 

- electrical equipment is connected to electrical equipment; 

- electrical equipment may have ratings; 

- transformers have windings. 

10 Additionally, relationships may be conditional or 
unconditional . 

One unique feature of the present invention provides for the 
use of one table for all groupings (i.e. for all 
15 relationships, such as 'member of, • 'located with, • and 
'shown on'). Typically, a database of the type described 
herein would rely on a separate table for each grouping 
relationship between each type of object. 

20 Group-Member Relationship 

The present invention contains a description of group-member 
relationship. Both the group and the member are objects in 
the database. Where a division belongs to a company, the 

25 group is an object of the type COMPANY, the member is an 
object of type DIVISION, and the relationship is BELONGS TO. 
Other relationships may include: LOCATED WITH, which can be 
used to locate switches on poles that have a known address; 
SHOWN ON, which relates objects to maps and drawings; RATED 

30 .AS, which allows a common set of ratings to be held for a set 
of similar equipment; and LOAD MODELED BY, which allows a 
common load model to be applied to similar consumers. 
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The SYSTEM grouping holds references to all the objects that 
make up a version of the power system data model. 
Generational versions record the evolution of the equipment 
in the power system. Between two versions, the grouping 
mechanism duplicates only the references to objects common 
to both, not the objects themselves. 

Additionally, objects may be stored as members of groups in 
at least two ways: 

- as an object: e.gr. a transformer 

- as a network position identifier: e.gr. a position or place } 
holder in the power system. ^ 

By assigning a dual nature to an object, the object itself 
may exist in the model, along with its attributes, and a 
place in the power system may be held into which objects 
having different attributes may be placed based on historical 
need. For exait^le, a power system may have a network 
position identifier for a transformer. An object, i.e. a 
transformer having a particular rating, manufacturer, etc. 
may currently occupy that network position. Based on 
historical data, projected needs, etc., it may be determined 
that the network position (occupied by the particular 
transformer should be occupied by a transformer having a C 
25 different rating, etc. in this way, the power system data 
model (and, accordingly, the power system) is readily 
modified by equipment interchange based on demand, need, 
plan, etc. The historical data can also be applied to the 
object itself, allowing the history of a device to be 
30 analyzed. 
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Normalization Rules 

The following normalization rules are provided by the 
invention which are applied to the attributes to ensure that 
5 the descriptions are coherent: 

- One instance of an object has exactly one value for each 
attribute; 

- Attributes cannot contain an internal structure; and 

10 - Every non-key attribute must be fully dependent on the 
primary key. 

The normalization rules are similar to those normally applied 
to the design of a relational database. The first rule 
15 defines a 'table' in the relational database. 

The second rule ensures that the attributes are fully 
factored. This is essential to avoid 'hard-coded' knowledge 
of the meaning of parts of an attribute (e.g. the first two 
20 digits of the equipment nturiber represent the year of 
purchase) . 

The third rule refers to the use of 'keys.* In a database 
there must be a way of uniquely identifying anything in the 

25 database. In a hierarchical database this is accomplished 
by the combination of the name of the item plus the names of 
the parents of the item (e.g. Substation Foo, Transformer 
Tl) . In a relational database, each row in a table must have 
a key of its own. In some applications this is sinple (e.g. 

30 the name of a substation — Foo) ; in others compound (e.g. 
a name constructed from the identifier plus those of its 
parents — Foo Tl) . 
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The fourth rule requires that- every attribute that is not 
part of the identifier must represent a characteristic of the 
entire object, and hot a characteristic of something that is 
identified by part of the identifier (e.g. the attributes 
of the transformer Foo Tl cannot include the location of the 
substation Poo). This rule also prevents the use of 
attributes that are identified by other attributes within the 
object {e.g. the transformer may have a manufacturer 
attribute, but it is incorrect to store the manufacturer's 
address as an attribute of the transformer) . 

■ Surrogat e Keys 

in the preferred embodiment of the present invention, the 
actual primary key is modeled as a surrogate key. which is 
a computer generated numeric key that has no meaning to 
users. A surrogate key allows the user to change the name 
of an incidence of an object but not change references. All 
referential attributes are based on surrogate keys. Other 
(secondary) keys can be used to access objects by name, and 
the uniqueness rules for these keys can be defined on a case- 
by-case basis. 

one unique feature of the present invention provides for the 
25 use of a balanced binary tree index with sequential keys, 
surprisingly, the use of this technique in the present 
invention, taking advantage of the fact that the database is 
primarily 'read. • results in a much faster cycle time. Thus, 
the database is speeded up using a technique that would, by 
30 conventional wisdom, slow a database down. 
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Data Model 

In summary, one aspect of the present invention provides a 
data model constructed in accordance with the following 
5 procedure: 

• Create an extensible type hierarchy, allowing a user to 
extend types down the hierarchy; 

10 • Collapse objects into tables, where attributes specific to 
all objects below base types are collapsed into type tables, 
and all objects above base types are collapsed into object 
tables: 

- Use typing to identify an object (not a table name) ; 

15 and 

- Use common object table with surrogate keys; and 

• Externalize and collapse relationships, where three main 
relationships are defined in the preferred embodiment of the 

20 present invention, i.e. connectivity, measurements, and 
groupings : 

- Use typing to identify the type and relationship. 

The data model incorporates the following procedures and 
25 operations to ensure integrity: 

Referential: to enforce constraints imposed by the 
database design, e.g. relationships between tables; 

3 0 - Validation: to evaluate against real -world criteria, e.gr. 
use engineering rules of thumb to reject bad data; and 

• Behavioral: to model behavior of equipment, e.sr. calculate 
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secondary /primary descriptive attributes, or split up load 
models . 

These procedures are triggered when data is changed, e.g. SQL 
insert, update, delete statements, etc. The procedures 
cannot be bypassed by using a different user interface. This 
is vital for integrity and prevents the use of so-called 
•back doors' to corrupt the database. These procedures may 
be turned off, e.gr. for maintenance. 

Triggers make the presence of various procedures transparent. 
Thus, a user would not be aware of the operation of the 
database. Rather, values are entered and results displayed. 
This is discussed in greater detail below. 

Phygical Model 



An important aspect of the present invention is the use of 
a physical model. Thus, the descriptive attributes recorded 

20 for an object are verifiable. For exanqole, control center 
applications may require the impedances for a three-winding 
transformer to be specified on a per-winding basis, corrected 
for the system base MVA and kV levels. These impedances 
cannot be validated by inspection. In the prior art, it is 

25 common practice to enter these values directly into the 
databases used by the specific application programs 
concerned. If the data from the manufacturer's test report 
are entered into the database of the present invention, then 
the application data can be calculated at any point in the 

30 system. This test data has a known provenance which can be 
checked if a question arises about the validity of the data. 

Another example of the foregoing involves transmission line 



5D0CID- <WO_9406087A1J_> 



wo 94/06087 



PCT/US93/08233 



23 

impedances. If the characteristics of conductor types and 
tower geometries are known, it is possible to calculate the 
positive sequence impedances from the primary data of the 
line length and construction. By adding more information 
5 about the ground resistivity and the relationships to other 
lines in the same right-of-way, zero sequence impedance can 
also be calculated. 

The power system data model describes four main types of 
10 equipment: conducting equipment, sensing equipment, computer 
equipment, and support equipment. The following 

relationships are established between these four major types: 

1. Sensing equipment -> measures -> conducting equipment; 

15 

2. Support equipment -> supports -> conducting equipment; 

3. Conducting equipment -> is connected to -> conducting 
. equipment ; and 

20 

4 . Computer equipment - > controls and models - > conducting 
equipment . 

The main types of the conducting equipment are: 

25 . 

Conducting equipment -> capacitor, switch, transfoimer, 
generator, conductor, reactor, consumer, etc. 

The sensing equipment is assigned two major subtypes: 

Sensing equipment -> 

- protection: voltage relay, current relay, frequency 
relay, etc.; and 
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- telemetry: analog, digital, counter, control, etc. 

The support equipment encompasses the equipment needed to 
keep the network in place: 

Support equipment -> 

- overhead: tower, pad, pole, etc; 

- underground: manhole, pit, vault, etc; and 

- etc. 

Computer equipment may be described as follows: 



Computer equipment -> 

- hardware: display, printer, etc; 
15 - software: program. 

The relationships in the power system data model may be 
extended by the end user. Groupings are used to aggregate 
the equipment into larger units that reflect the utility's 
20 organization. For example, a utility may choose to define 
groups of equipment as follows: 

Equipment group system, coir5)any, division, substation, 

bay, line, circuit, etc. 

25 

A circuit breaker can belong to a bay that belongs to a 
substation that belongs to a division that belongs to a 
company. This is represented graphically as follows: 

30 Company -> division -> substation -> bay -> circuit breaker. 

The same circuit breaker may also belong to a transmission 
line which may belong to two different divisions of different 
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companies . 

That is, 

5 Company 1 -> division l -> 
Company 2 -> division 2 -> 

-> transmission line -> circuit breaker 

These example groupings are specific to a particular utility* 
10 Each database user can choose different groupings to 
accurately reflect the utility's organization. 

Fig. 2 is a block level representation of an object 30 as may 
be used in the present invention as a database meniber based 
15 on physical equipment having both a location 32 and a rating 
34. The following types of conducting equipment are modeled 
in the power system data model provided in a preferred 
embodiment of the invention: 

20 AC Overhead Line: The AC overhead line model constructs a 
line from a number of two terminal conductors 46. Each 
conductor has impedance and capacitance information 
associated with it that can either be entered directly or 
calculated by the power system data model from supplied 

25 primary data, e.gr. tower geometry 43, conductor 
characteristics 41, and conductor length. 

Busbar: Busbars 45 are considered subtypes of conductors 46 
and may be modeled as physical devices, if desired. This 
30 characterization is in contrast to prior art practice of 
modeling a bus bar as an abstraction referred to as a node. 

Capacitor: For capacitors 36, the installed MVAr is modeled. 
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Consumer: A consumer 38 is used to model a 'load' 33 on the 
power system. For a transmission model, consxamers may be 
distribution feeders or major customers. if power system 
modeling is extended to include the distribution primary, 
consumers may be commercial enterprises with a high voltage 
supply or they may be housing developments. If desired, the 
model may be extended to individual meters. Each .consumer 
has a base load expressed in MW or MVAr, plus voltage and 
frequency variations for the base load. A family of load 
curves that describe temporal variation of the base load can 
be associated with the consumer, such as season 35, day type 
37, and load value 39. 

15 Generator: Generator 42 MVA, MW, MVAr, and kV ratings, 
resistance and reactance, and parameters for the rate of 
change of the unit are modeled. 



10 



20 



25 



Reactor: For reactors 44, the installed MVAr is modeled. 
Switch: The normal state of a switch 48 is modeled. 



Transformer: The power system data model includes one- and 
.three-phase, two- and three-winding transformers 50. 
Characteristics of the transformers may be entered directly 
from the nameplate and manufacturer's test reports as primary 
data, in which case the per- winding impedance information is 
calculated 49. The per-winding inpedance data may be entered 
directly, if desired. Additionally, tap setting information 
30 47 is modeled. 

Transformer banks may also be supported by the present 
invention. 
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Additionally, the power system data model may also model 
PERSONS 54, COMPUTERS 56, and TELEMETRY 58, as desired. 

5 User Interface 

In the preferred embodiment of the invention, all equipment 
attribute data are maintained in a single database using a 
window-based graphical user interface. Primary data for an 

10 object are input directly by a user. The use of windowing 
in the user interface permits precise control of input data 
. at the point of entry using pull down menus and slider bars 
having a range boxxnded by the physical limits of the modeled 
equipment. Thus, out of range or incorrect settings are not 

15 possible and a user can be guided through an interactive data 
input process with little previous experience or training. 

Typically, the user of the invention is an engineer having 
responsibility for modeling decisions concerning the 
20 electrical power system. The user interface also allows 
efficient data entry for administrative personnel . 

Thus, the present invention features a consistent graphical 
user interface across all applications and for all users. 

25 A user enters attribute data via pop-up menus, pull -down 
menus, scrollable lists, enterable fields, dialog boxes, and 
mouse pointing device support, generic implementation of 
which is well known in the art. Data entry fields are color 
coded to prompt the user for the appropriate type of input. 

3 0 For example, electrical connectivity is defined using point 
and click operations to reference the physical terminals of 
the equipment being connected. 
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The invention allows several editors to be active at the same 
time. An editor can be started for any object in the 
database by clicking at any reference to that object. In the 
equipment editor windows, the user selects from option lists 
5 that only offer valid choices. Existing equipment may be used 
as a template to simplify data entry for new equipment. 

The user interface of the present invention is configurable 
in the preferred embodiment for OSF/MOTIF, Open Look, or 
10 Windows. Typical hardware support for the present invention 
may include workstation type computers, such as VAXstations 
running VAX/VMS with INGRES or DECstations running 
DLTRIX/RISC with INGRES, as supplied by Digital Equipment 
Corporation of Maynard, MA. 
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Operation 

Fig. 3 shows a first level database menu 100 for a specific 
power system lio. At this level, a user accesses type 
hierarchy 120, system parameters 130, grouping selection 140, 
and object lists 150. 

A user makes a selection in menu 100, for example type 
hierarchy 120, and is directed to a type menu 200 for the 
desired type hierarchy 210. Type hierarchy includes a name 
field 230 which identifies an established hierarchy for a 
specified object 240, which is further defined as equipment 
250 (subtype) of a type that is conducting 260 (sxab- subtype) . 
Additional hierarchy may be provided in the remaining field 
.270 and several other fields, as desired, beneath it. 

Once type and type hierarchy are established, a type 
selection is made 280. as specifically defined by a name 
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field 290. The selection is ihade from the available types 
300-350, for example, ground, generator, consumer, capacitor, 
reactor, or switch; and any additional sxibtypes 360. 

5 A grouping selection menu 400 for a specified grouping 410 
is shown in Fig. 5- A first level in the menu displays group 
hierarchy 420 by type 430 and by name 440. Thus, group 
hierarchy may be structured as an organization 431 named 
ORGANIZATION 441, having a system 432 named SYS 442, in which 
10 there is a company 433 named CO 443, having a division 434 
named DIV 444, containing a substation 435 named SUB 445, and 
so on. 

For the group hierarchy, a group selection 450 is made, 
15 including a type 460 having a name 470. The list of objects 
selected would represent equipment within substation SUB and 
would be selected by type from a scrollcible list 461-469 in 
which each piece of equipment on the list has a corresponding 
name 471-479. 

20 

For each group selected, a user can also identify members of 
the group 480, equipment details 490, and network connections 
495. 

25 Objects within the system may be located from the find object 
menu 500 for a specific object 510, as shown in Fig. 6. 
Thus, an object type is selected 520 from a list of types 
521-524, which may include switch, system, telemetry 
equipment, etc. The object selected is associated with a 

30 group 530 having a relationship 532, such as 'contains,* 
'starts with, ' 'ends with, • 'matches, » and having a name 
534. A corresponding name 540 also has a defined relation 
542, such as 'contains' for a name 544. A look-up button 546 
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also provided to obtain a list of objects that match the 
search criteria. 

The objects found are reported by number 550 and, by group 
5 560, type 570, and name 580, each of which includes a 
corresponding list of matching objects (561-566, 571-576, and 
581-586, respectively). Navigation through the menu is 
enhanced by an apply button 590 and a cancel button 595. 

10 Although the invention is described herein with reference to 
the preferred embodiment, one skilled in the art will readily 
appreciate that additional applications, other than those set 
forth herein, may be substituted therefor without departing 
from the spirit and scope of the present invention. For 
example, the invention may be readily applied to other large, 
complex systems, including establishing models for process 
control in manufacturing plants and other physical systems. 
Accordingly, the invention should only be limited by the 
claims included below. 

20 

The following appendix provides source and object code 
listings and screen printouts for software included in this 
invention. The listings include database scheme definition, 
object editors for the power system data manager editor, and 
25 general use frames for the power system data manager. 
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Copyright 1991, 1992 by Unified Information, inc. 

Ail Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information. Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 
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The following domains are used in this model: 



AbsoluteDate 

Address 

Amps 

Bits 

Boolean 

Comment 

ContactName 

Coordinate 

Count 

Degrees/Step 

Description 

Exponent 

ForeignKey 

Hertz 

Interpolation 

IntervalTime 

kV 

KVLevel 

Key Name 

KeyValue 

LocationLine 

LockCombination 

LongLength 

LongLength/ Shor tLength 

MVA 

MVAR 

MW 

MW/min 

MeasurementSource 
Name 

ObjectName 

Ohm-ShortLength 

Ohms / LongLength 

ParticipatioilFactor 

Percent 

PerUnit 

PerUnitMW-Sec 

PerUnitMW/Freq 

PerUnitkV/MVAR 

PhaselD 

PhoneNumber 

Primary Key 

Problem 

RatingType 

Reference 

SensorValue 

SeguenceNumber 

SerialNumber 

Severity 

ShortLength 

Sourceldentifier 

TapStep 

Tel erne t ry Va lu e 

Temperature 

TemperatureUnits 

Terminal 

Terminal Count 

TypeName 

UserName 

Ver 5 i onNuxnbe r 

WindingName 



A date in full dd-mm-yyyy hh:inm:ss fcrn\ 
Address of component in computer system 
Current flow (+ve into bus, -ve out of cu 
Count of bits 

0 = False = No I 1 = True = Yes 
Free form text 

Textual name of a contact person 
Measurement of position on a grid 
Measurement of quantity 
Degrees of phase shift per tap step 
Textual description 
Exponentiation amount 
Reference to a primary key 
Cycles per second 

Type of interpolation between data points 
A time between two points (usually hhh:mm 
Value representing kV 
Voltage level in kV 
Textual name of a key 
Current value of a key 
Text describing a location 
Combination for a lock 

Long unit of length (e.g. mile; kilometer 
Ratio of long length to short length 
Mega volt amperes 
Megavoltamperes Reactive 
Megawatt 

Megawatt rate of change per minute 
Reference to document defining measurement 
Textual name 

Textual name of an object 

Resistivity in ohms per-unit short length 

Resistance in ohms per unit long length 

Generating unit economic participation fac 

Nonnally 0 - 100 on a defined base 

Normally 0 - 1 on a defined base 

MW - second inertia on a defined base 

MW variation with frequency on a defined t 

Voltage variation with reactive power 

Phase identification <AIBICI3) 

Telephone number 

Unique reference to a row 

Identifier of a problem description 

Type of measurement being rated 

Reference to association between two objec 

Physical value measured by a sensor 

Incrementing number used to order rows 

Textual serial number string 

Problem severity (FIEIWII) 

Short unit of length (e.g. foot; meter) 

Reference to data source in foreign databa 

Transformer tap step position 

Value of reading in telemetry system 

Value of tenperature in TemperatureUnits 

C 1 F 

Object terminal number 

Maximum number of terminals for an object 
Textual name for an object type 
Textual name for a user 
Object version number 

Textual name for a transformer windina 



wo 94/06087 PCT/US93/08233 



33 



Object table. There is an entry in this table for 
Ecjuipment, Organisation and Specification entry. 



CREATE TABLE Object 
( Object 
Source 

SyscemVersion 
BaseType 
Type 

Pr ima ry G r oup i n g 
TypeName 



INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
VARCHAR(20) 



Pr ima ryG roup ingName VARCHAR(20) 



Name 
Description 
Comment 
Terminals 
InService 
OutService 
PositionX 
PositionY 
OwnerNumber 
S e r i a INumbe r 
SpecNumber 
Created 
CreatedBy 
La St Changed 
LastChangedBy 



VARCHAR{20) 
VARCHAR(60) 
VARCHAR{200) 
INTEGER 
DATS 
DATE 
REAL 
REAL 
CHAR (20) 
CHAR (20) 
CHAR(20) 
DATE 
CHAR(24) 
DATE 
CHAR(24) 



NOT NULL 
WITH NULL 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 



DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
WITH NULL 

NOT NULL WITH DEFAULT 
WITH NULL 

NOT NULL WITH DEFAULT 



every 



/* Primary Key * 
/* Sourceldenti fie: 
/* ForeignKey '/ 
/• ForeignKey */ 
/* ForeignKey •/ 
/* ForeignKey */ 
/• TypeName */ 
/* Object Name */ 
/* ObjectName */ 
/* Description " f 
/ * Comment * / 
/* TerminalCount *• 
/* AbsoluteDate •/ 
/• AbsoluteDate •/ 
/* Coordinate */ 
/* Coordinate •/ 
/• SerialNumber •/ 
/• SerialNumber */ 
/* SerialNumber '/ 
/• AbsoluteDate •/ 
/* UserName */ 
/* AbsoluteDate */ 
/• UserName •/ 
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Conducting equipment. 

f^f fYS^^'^^ conducting equipment has "a table containing ' 
specific details pertaining to that type of equipment a lone . 



CREATE TABLE Capacitor 



Object 
NominalMVAR 
Volt Sensitivity 
AVRDelay 



Transmission 
are jtimpers. 



INTEGER NOT NULL WITH DEFAULT 

REAL WITH NULL 

REAL WITH NULL 

DATE WITH NULL 



/* ForeignKey '/ 
/* MVAR */ 
/* PerUnit kV/M^/iR 
/* IntervalTime */ 



lines are made up of two-terminal segments, as 
Busbars have single terminals. «y«t«ncs, as 



CREATE TABLE Conductor 

( Object INTEGER 

5 REAL 

X REAL 

Bch REAL 

Length REAL 

Toweroype INTEGER 

GroundConductorType INTEGER 

PhaseConductorType INTEGER 

PhaseConductorCount INTEGER 
PhaseConductorSpacing REAL 



NOT NULL WITH DEFAULT /* 

WITH NULL /» 

WITH NULL /• 

WITH NULL /* 

WITH NULL /• 

NOT NULL WITH DEFAULT /♦ 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /♦ 

NOT NULL WITH DEFAULT /* 

NOT NULL WITH DEFAULT /• 



ForeignKey 
PerUnit */ 
PerUnit •/ 
PerUnit */ 
LongLength ' 
ForeignKey ' 
ForeignKey ' 
ForeignKey ' 
Count */ 
ShortLength 



a variable part. 



Consumers (loads) are modeled as a fixed part and a vari^m. 
The fixed part represents an unchanging" pSrtLS of the iSad 
th4^iofd^'i?^i^^Slfk ^""^ r"^^^^ Part^i^represlnts^t^^^^ of 
varia?ioAs^(Do^^%"^^f ^SirSortiSn^if T'S"^" anrfreSuenc, 
to time variations difilik'ii''tL''l^^^^^ ^i^^ ^^^^^^^^ 

"^als^^^^ II l^otl^^sT^^- ^^^^ a^la^^tSo^r^Sft l^SIfa^le^as 



.CREATE TABLE Consumer 

( Object INTEGER 

^ INTEGER 

TopLoadArea INTEGER 

Pfixed REAL 

Qfixed REAL 

/ Pnom REAL 

Qnom REAL 

PowerFactor REAL 

PfixedPct REAL 

QfixedPct REAL 

PnomPct REAL 

QnomPct REAL 

PVexp REAL 

QVexp REAL 

PFexp REAL 

; QFexp REAL 



NOT NULL WITH DEFAULT / 

NOT NULL WITH DEFAULT / 

NOT NULL WITH DEFAULT / 

WITH NULL /' 

WITH NULL /I 

WITH NULL /I 

WITH NULL /i 

WITH NULL /I 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 

WITH NULL /* 

WITH NULL /* 

WITH NULL /• 



ForeignKey */ 
ForeignKey •/ 
ForeignKey */ 
MW »/ 
MVAR ♦/ 
MW •/ 
MVAR */ 
Cosine •/ 
Percent */ 
Percent • / 
Percent */ 
Percent * / 
Exponent •/ 
Exponent */ 
Exponent */ 
Exponent •/ 
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CREATE TABLE Generator 
( 



Object 


lOTEGER 


NOT NULL WITH DEFAULT 


/♦ 


ForeignKey • / 
MVA ♦/ 


RatedMVA 


REAL 


WITH 


NULL 


/' 


MinimumMW 


REAL 


WITH 


NULL 


/* 


MW */ 


BaseMW 


REAL 


WITH 


NULL 


/* 


MW */ 


MaximumMW 


REAL 


WITH 


NULL 


/♦ 


MW •/ 


Mi n imumMVAR 


REAL 


WITH 


NULL 


/* 


MVAR */ 


BaseMVAR 


REAL 


WITH 


NULL 


/♦ 


MVAR •/ 


Ma X imumMVAR 


REAL 


WITH 


NULL 


• » 


MVAR •/ 


MinimumKV 


REAL 


WITH 


NULL 




kV ♦/ 


MaximuznKV 


REAL 


WITH 


NULL 


/• 


kV */ 


X 


REAL 


WITH 


NULL 


/* 


PerUnit */ 


R 


REAL 


WITH 


NULL 


/* 


PerUnit •/ 


Inertia 


REAL 


WITH 


NULL 


/• 


PerUnit MW-Sec ' 


Damping 


REAL 


WITH 


NULL 


/* 


PerUnit MW/Freq • 


Manual To AVR 


DATE 


WITH 


NULL 


/* 


IntervalTime ' / 


AVRToManualLag 


DATE 


WITH 


NULL 


/• 


IntervalTime ' / 


AVRToManualLead 


DATE 


WITH 


NULL 


/* 


IntervalTime '/ 


Normal PF 


REAL 


WITH 


NULL 


/• 


ParticipationFac- 


ShortPF 


REAL 


WITH 


NULL 


/♦ 


ParticipationFact 


LongPF 


REAL 


WITH 


NULL 


/* 


ParticipationFacz 
MW/min */ 


DownRaxnpRa t e 


REAL 


. WITH 


NULL 


/* 


UpRampRate 


REAL 


WITH 


NULL 


/* 


MW/min •/ 



) 

CREATE TABLE Reactor 



( 



Object 
Nomina IMVAR 
, Volt Sensitivity 
AVRDelay 

) ; 

CREATE TABLE Switch 

( Object 

, Normal Open 

Cur rent lyOpen 
, RelayType 
) ; 



INTEGER 
REAL 
REAL 
DATE 



INTEGER 
INTEGER 
INTEGER 
INTEGER 



NOT NULL WITH DEFAULT 
WITH NULL 
WITH NULL 
WITH NULL 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



/* ForeignKey */ 

/* MVAR ♦/ 

/* PerUnit kV/MViJ^. 

/ * IntervalTime * . 



/* ForeignKey •/ 

/♦ Boolean */ 

/* Boolean */ 

/ * ForeignKey * / 
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The transformer cable concains information relati 
a whole. These are mostly related to the magnetiz 
which are dependent on the core of the trans forme 



ng to this trans forn-.-s 
ing branch character 
r . 



CREATE TABLE Transformer 



) ; 



Object 
Bank 
Phases 
MagBaseKV 
Gmag 
Bmag 

MagSatFlux 
BmagSat 



INTEGER NOT NULL WITH DEFAULT 

INTEGER NOT NULL WITH DEFAULT 

CHAR(l) NOT NULL WITH DEFAULT 

REAL WITH NULL 

REAL WITH NULL 

REAL WITH NULL 

REAL WITH NULL 

REAL WITH NULL 



Each transformer is made up of a number of windings 



CREATE TABLE Winding 

( Object INTEGER 

Wmdxng INTEGER 

Source INTEGER 

Name CHAR(IO) 

, LoadTapChanger INTEGER 

NominalKV REAL 

NeutralKV REAL 

BIL REAL 

RatedMVA REAL 

ShortTermMVA REAL 

EmergencyMVA REAL 

LowStep INTEGER 

HighStep INTEGER 

NeutralStep INTEGER 

StepSize REAL 

/ PhaseShift REAL 



NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL 
NOT NULL WITH 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
WITH NULL 
WITH NULL 



DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 

DEFAULT 



DEFAULT 
DEFAULT 
DEFAULT 



/* FcreignKey »/ 
/* ForeignKey ♦/ 
/* PhaselD */ 
/* kv */ 
/* PerUnit */ 
/* PerUnit ♦/ 
/* PerUnit */ 
/* PerUnit «/ 



/* ForeignKey */ 

/• SequenceNumber • 

/* Sourceldentif ier 

/* WindingName •/ 

/* Boolean */ 

/* KVLevei •/ 

/* kv */ 

/• kV */ 

/* MVA */ 

/• MVA •/ 

/* MVA */ 

/* TapStep */ 

/* TapStep •/ 

/* TapStep */ 

/* Percent */ 

/* Degrees/ Step -/ 
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Each transformer may have a number of measurements done at different 
tap settings. These can have two sources: the primary source is the 
manufacturers test report, which contains impedance information in perr 
measured at one winding with a reference winding shorted. The secondare..' 
source are the impedances derived from this test report. These are 
specified on a per-winding basis, corrected for system base MVA and 
system base kv. These are needed by analytical applications, and are ei 
derived from tthe primary, or loaded directly if the primary inform.atic 
is not available. 



/ 



CREATE TABLE TapSetting 



( 



Object 
windingl 
TapStepl 
Winding2 
TapStep2 
windings 
TapStep3 
Source 
R0_l_2 
Z0_l_2 
Rl_l-2 
Zl-1-2 
R0_2_3 
Z0_2_3 
Rl-.2_3 
Zl_2_3 
R0_3_l 
Z0_3_l 
Rl_3_l 
Zl_3_l 
R0_1 
20_1 
X0_1 

Rl-1 
Zl_l 
Xl_l 
R0_2 
Z0_2 
X0_2 
Rl_2 
21_2 
Xl_2 
R0.3 
Z0„3 
X0_3 
Rl_3 
Zl«3 
X1.3 



INTEGER 


NOT NULL WITH 


DEFAULT 


/• 


ForeignKey • / 
SeguenceNumber • 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


Tap Step 


*/ 


INTEGER 


NOT NULL WITH 


DEFAULT 


/♦ 


SeguenceNumber • " 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


TapStep 


*/ 


INTEGER 


NOT NULL WITH 


DEFAULT 


/* 


SeguenceNumber ' 
TapStep •/ 


INTEGER 


NOT NULL WITH 


DEFAULT 


/♦ 


CHAR(20) 


NOT NULL WITH 


DEFAULT 


/* 


Measurement Sourcs 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/♦ 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


♦/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


*7 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 




REAL . 


WITH NULL 




/• 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/• 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/• 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/• 


Percent 


•/ 


REAL 


WITH NULL 




/• 


Percent 


'/ 


REAL 


WITH NULL 




/• 


Percent 


'/ 


REAL 


WITH NULL 




/* 


Percent 


♦/ 


REAL 


WITH NULL 




/• 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/• 


Percent 


*/ 


REAL 


WITH NULL 




/• 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


•/ 


REAL 


WITH NULL 




/* 


Percent 


*/ 


REAL 


WITH NULL 




/♦ 


Percent 


•/ 
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Sensing Equipment. 



CREATE TABLE Telemetry 
( Object 

Te 1 erne t ry Mi niimim 
Tel erne t ryMaximum 
XORMask 
Input 
Output 
CardAddress 
WordAddress 
Size 
Offset 
PowerCable 
ReturnCable 
GroundCable 
Te rmina t i onCabl e 
Panel 



INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR(20) 

CHAR(20) 

CHAR(20) 

CHAR(20) 

CHAR(20) 



Computer Equipment. 



CREATE TABLE Computer 
( Object 

Object Address 

Controller 

Control lerAddress 

Cable 



INTEGER 
INTEGER 
CHAR (20) 
INTEGER 
CHAR(20) 



NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 
NOT 



NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 



WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 
WITH 



DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



/* ForeignKey 

/* TelemetryValue 

/* TelemetryValue 

/* TelemetryValue 

/* Boolean */ 

/* Boolean */ 

/* Address */ 

/* Address */ 

/• Bits •/ 

/* Bits •/ 

/* Name ♦/ 

/* Name */ 

/* Name */ 

/* Name */ 

/* Name */ 



/* ForeignKey ♦/ 
/* Address */ 
/* Name */ 
/* Address *7 
/* Name */ 
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Speci£icacion objeccs 

Conductor details from the manufacturer. Characteristic of the conduc 
as supplied by the manufacturer are tabulated. 



CREATE 
( 



TABLE 



Conduct oriype 
Ob j ect INTEGER 
Resistance REAL 
Radius REAL 
GMR REAL 
Ampacity REAL 



NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 
NOT NULL WITH 



DEFAULT /* ForeignKey */ 

DEFAULT /* Ohms/LongLengt 

DEFAULT /* ShortLength 

DEFAULT /* ShortLengch •/ 

DEFAULT /* Amps •/ 



Tower geometry is tabulated for a three phase, single or double circu 
with 0, 1, or 2 ground wires. Offsets from an arbitrary datum, and 
the height above ground are used. 



CREATE TABLE Toweriype 



( 



) ; 



Ob j ect 
Al_of fset 
Al_Height 
Bl_Of fset 
Bl_Height 
Cl_Of fset 
Cl^Height 
Gl^Offset 
Gl_Height 
A2_Of f set 
A2_Height 
B2_0f fset 
B2_Height 
C2.0ffset 
C2_Height 
G2_Of fset 
G2_Height 



INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 




REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/• 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 



ForeignKey ' 

ShortLength 

ShortLength 

ShortLengch 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLengch 

ShortLength 

ShortLengch 

ShortLength 

ShortLength 

ShortLength 

ShortLength 

ShortLength 



The Person table holds specific attributes for people who need 
to be known to the system. 



CREATE TABLE Person 



( 



Object 
LoginName 
Password 
Initials 



INTEGER NOT NULL WITH DEFAULT 

CHAR (20) NOT NULL WITH DEFAULT 

CHAR (20) NOT NULL WITH DEFAULT 

CHAR (4) NOT NULL WITH DEFAULT 



ForeignKey • / 
Name */ 
Name * / 
Initials */ 
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Object typing 



*/ 
CREATE 
( Las 
Vai 

) ; 
/* 



The LastKey table contains the last key value used for th*:» HSffo^or.- 

TABLE LastKey 
tKey CHAR (8) 

INTEGER 



NOT NULL 
NOT NULL 



/* KeyName */ 
/* KeyValue */ 



List all problems and their descriptions 



CREATE TABLE Problem 

( Problem CHAR (20) 

Severity CHAR(l) 

J Description CHAR(60) 



NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



/* Problem •/ 
/* Severity ♦/ 
/•^ Description */ 



Set up the base type table. This is used to set up base tvoe 
editors and specific table names ^ 



CREATE TABLE BaseTVpe 
( Type 

EditorName 

TableName 

) ; 



INTEGER 

CHAR(20) 

CHARC20) 



NOT NULL 
WITH NULL 
WITH NULL 



/* ForeignKey */ 
/* Name •/ 
/• Name ♦/ 



llltTz^l SEIsT^'''^''^" ^^"-^ " "-^^ '^^ specify the 



CREATE TABLE Type 
( Tyjpe 

Baseiype 
/ Name 
. ) ; 



INTEGER 
INTEGER 
CHAR(20) 



NOT NULL 
NOT NULL 
NOT NULL 



JSf^^o^^Si^c'^^'^^m.^^® " supertype relationships, 
define the SuperType to SubType heirarchy. 



/* PrimaryKey */ 
/• ForeignKey 
/* TypeName •/ 

This table is used to 



NOT NULL 
NOT NULL 



ForeignKey */ 
ForeignKey */ 



CREATE TABLE SuperType 
< Type INTEGER 
. SuperType INTEGER 

/• 

• T^^«*f???^fi2^"^ extended type - supertype relationships. This table 

wfth "l"^rfu;iJ?^^^s°' "^^^ SuperTVpe table. Each ty^e is citalogic 

CREATE TABLE ExtendedType 

* INTEGER NOT NULL /t. For-o-irrnv^w 

J ^ SuperlVpe INTEGER NOT NULL ForliSly 
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Parameters relating to the system being modelled are defined here. 
Frequency is the system base frequency (default 60) 

MVABase is the system MVA base for per-unit tranf ormations (default IT." 
KVReference is the kV to use for per-unit transformations (default li 
LengthRatio is the ratio of the Longlength over the ShortLength 
Typical values are: 1000 for SI units (km / m) (default) 

5280 for British-American units (mile / foot) 
GroundResistivity is used in zero sequence calculations (default 100 cr. 



CREATE TABLE SystemParameters 

Frequency REAL NOT NULL 

MVABase REAL NOT NULL 

KVReference REAL NOT NULL 

LengthRatio REAL NOT NULL 

GroundResistivity REAL NOT NULL 

Temperature CHAR(l) NOT NULL 



/* Hertz */ 

/• MVA */ 

/* kV ♦/ 

/* LongLength/Short: 

/* Ohm-ShortLengch ' 

/* TemperatureUnics 



*/ 



Validation table for system kV levels 



CREATE TABLE KVLevel 
( KVLevel 

Name 

Voltage 

) ; 



REAL NOT NULL /* KVLevel */ 

CHAR (20) NOT NULL WITH DEFAULT /• Name »/ 

REAL NOT NULL /* KVLevel */ 
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iihfSh 22f oppects (e.g. address). This table is keyed bv the ob-^ — 
nJ^ifn.'^^5^''^f location (typically of type Support Equipment c-""^" 

Organization), but may be referenced by any object ^^^Pt^ent c. 



CREATE TABLE Location 



( 



Object 
Combination 
Phone 
Contact 

LI 
L2 
L3 
L4 

Comment 



INTEGER NOT NULL 

CHAR (4) NOT NULL WITH DEFAULT 

VARCHAR(20) NOT NULL WITH DEFAULT 
VARCHAR(40) NOT NULL WITH DEFAULT 
VARCHAR(80) NOT NULL WITH DEFAULT 
VARCHAR(80) NOT NULL WITH DEFAULT 
VARCHAR(80) NOT NULL WITH DEFAULT 
VARCHAR(80) NOT NULL WITH DEFAULT 
VARCHAR(200) NOT NULL WITH DEFAULT 



/* ForeignKey » 
/* LockCombinaticr. 
/ * PhoneNuinber * / 
/* ContactName »/ 
/* LocationLine • / 

LocationLine 
/* LocationLine 



LocationLine 
Comment • / 



Set up the object rating table. Any object can have a set of rarina=; 
that the ordering is Normai 



^® supplied: it is assumed 
< snortTerm < Emergency < Loadshed. 



CREATE TABLE Rating 

( Object INTEGER 

Type CHAR (10) 

Season INTEGER 

Temperature REAL 

Normal REAL 

ShortTerm REAL 

Emergency REAL 

Loadshed REAL 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 
WITH NULL 



/* ForeignKey */ 
/* RatingType */ 
/* ForeignKey */ 
/* Temperature 



a load class wit.h 



LoadCurves are used to store the time variation of 

respect to a base value. FamiliL of lofd cS^Ss Ln hrcontt^ur^rtr ^ ^ 
The'valSes^lSnSlL '^^^ Suinmer^^lkend? Winter Weekdl^^^ 

can be put together by applications to generate a p^ofiilaf r4gSired. 



CREATE TABLE LoadCurve 

Ob j ect INTEGER 

DayType INTEGER 

Season INTEGER 

Ten^erature REAL 

LoadCurve INTEGER 

Source INTEGER 

Interpolate CHAR ( 6 ) 

CREATE TABLE LoadValue 

LoadCurve . INTEGER 

Time DATE 

LoadValue REAL 

Source INTEGER 



WITH NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
WITH NULL 

NOT NULL WITH DEFAULT 
WITH NULL 

NOT NULL WITH DEFAULT 



NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
WITH NULL 



/• ForeignKey */ 
/* ForeignKey */ 
/* ForeignKey 
/* Temperature */ 
/* Primary Key */ 
/* Sourceldentif ier 
/♦ Interpolation •/ 



/* PrimaryKey »/ 

/* IntervalTime */ 

/* PerUnit ♦/ 

/* Sourceldentif is: 
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Interactions 



Equipment terminals. Each object can have a variable number of termir 
which can be connected to other terminals . The node is used as a 
common reference between connected terminals. 



CREATE TABLE Terminal 



) ; 



Object 

BaseType 

Terminal 

Node 

KVLevel 



INTEGER NOT NULL 

INTEGER NOT NULL WITH DEFAULT 

INTEGER NOT NULL 

INTEGER NOT NULL WITH DEFAULT n 

REAL NOT NULL WITH DEFAULT n 



ForeignKey ♦/ 
ForeignKey •/ 
Terminal • / 
ForeignKey •/ 
KVLevel •/ 



Measurements made on the equipment. Each measurement measures 

* something (the measurand) using an agent (the measurer) . 
* 

* The measurand has a type (e.g. kV, Status, MW, Amps) that defines 

* the quantity being measured. It refers to the object being measured, 

* and may be made at no terminal (e.g. fire alarm) , at one terminal 

* (e.g. voltage), or between two terminals (e.g. breaJcer status). 
* 

* The measurand may be represented by a sensor. This has a type 

* (e.g. current, voltage, frequency, position, impulse, contact) and 
a minimum and maximum that are expressed in the units of the 

* measurand. 

* The measurer has a type (e.g. telemetered, manual, state estimated, 

* calculated, from other system) that defines the point of entry of the 

* measurement. It may refer to an object that is present at that point 

* of entry (e.g. a telemetry input) - 
*/ 

CREATE TABLE Measurement 
( 



Measurand 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


ForeignKey • 


/ 


MeasurandType 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


ForeignKey * 


/ 


Terminal 1 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


ForeignKey ♦ 


/ 


Terminal2 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


ForeignKey • 


/ 


Sensoriype 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/• 


ForeignKey • 


/ 


SensorMxnimum 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


SensorValue 


*/ 


Sens orMax imum 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


SensorValue 


*/ 


Sensor Ac curacy 


REAL 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Percent «/ 




ReversePolarity 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 




MeasurerType 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 




ForeignKey • 


/ 


Measurer 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


ForeignKey * 
Boolean */ 


/ 


Alarm 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 




History 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 




Trigger 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/♦ 


Boolean ♦/ 




EventLog 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 




Input 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean •/ 




Output 


INTEGER 


NOT 


NULL 


WITH 


DEFAULT 


/* 


Boolean */ 





Set up the grouping validation table. This contains the group - membe: 
relationships for objects. 



CREATE TABLE Grouping 

( SystemVersion INTEGER 

Grouping INTEGER 

Group ingType INTEGER 

Member INTEGER 

MemberType INTEGER 

Relationship INTEGER 

Reference CHAR (10) 



NOT NULL WITH DEFAULT 
NOT NULL 

N(DT NULL WITH DEFAULT 

NOT NULL 

NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 
NOT NULL WITH DEFAULT 



ForeignKey 
ForeignKey 
ForeignKey 
ForeignKey 
ForeignKey 
ForeignKey 



/* Reference */ 
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*^ Grass catcher table - somewhere to throw all the problems 

CREATE TABLE GrassCatcher 

* S^iS?^ INTEGER NOT NULL /* ForeicinKev 

Problem CHAR (20) NOT NULL /* Fo^f^SJJvfJ^ 

' l^^L. CHAR (20) NOT NtJLL WITH DEFAULT 

INTEGER NOT NULL WITH DEFAULT /• slSlean V 



) ; 



*■ 

w 



th^datfbasl^^^^ ""^^"^ workspace for procedures embedded in 

List of terminals connected to objects (identical to Terminal table) 
CREATE TABLE TEMP$TerminalList 

^ INTEGER NOT NULL /* ForeionKev 

*^ List of object and their voltage levels. 
CREATE TABLE TEMPSObjectList 

^ INTEGER NOT NULL /* ForeianKe^ »/ 

; . ^evel REAL NOT NULL WITH DEFAULT R^lIvIi^ 

/• 

*^ Table to use as an audit trail of where we have been 

CREATE TABLE TEMPS Audit Trail 

(^^ Obaect INTEGER NOT NULL ForeignKey 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use. duplication, or . disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



MODIFY Object TO BTree UNIQUE 

ON Object; 

MODIFY Capacitor TO BTree UNIQUE 
ON Object; 

MODIFY Conductor TO BTree UNIQUE 
ON Object; 

MODIFY Consumer TO BTree UNIQUE 
ON Object; 

-MODIFY Generator TO BTree UNIQUE 
ON Object; 

MODIFY Reactor TO BTree UNIQUE 
ON Object; 

MODIFY Switch TO BTree UNIQUE 
ON Object; 

MODIFY Transformer TO BTree UNIQUE 
ON Object; 

MODIFY Winding TO BTree UNIQUE 
On Object, Winding; 

MODIFY TapSetting TO BTree UNIQUE 

On Object, Windingl, TapStepl, Winding2, TapStep2 ; 

MODIFY Telemetry TO BTree UNIQUE 
ON Object; 

MODIFY Computer TO BTree UNIQUE 
ON Object; 

MODIFY ConductorType TO BTree UNIQUE 
ON Object; 

MODIFY TowerType TO BTree UNIQUE 
ON Object; 

MODIFY Person TO BTree UNIQUE 

ON Object; 

MODIFY Problem TO BTree UNIQT:E 
ON Problem; 
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MODIFY Baseiype TO BTree UNIQUE 
ON Type; 

MODIFY Type TO BTree UNIQUE 
ON Type. Name; 

MODIFY SuperType TO BTree UNIQUE 
ON Type, SuperType; 

MODIFY Extendediype TO BTree UNIQUE 
ON Type, SuperType; 

MODIFY KVLevel TO BTree UNIQUE 
ON KVLevel; 

MODIFY Location TO BTree UNIQUE 
ON Object; 

MODIFY Rating TO BTree UNIQUE 
ON Object, Type; 

MODIFY LoadCurve TO BTree XJNIQUE 

ON Object, DayType, Season, Temperature; 

MODIFY Loadvalue TO BTree UNIQUE' 
ON LoadCurve, Time; 

MODIFY Terminal TO BTree UNIQUE 
ON Object, Terminal, Node; 

MODIFY Measurement TO Btree UNIQUE 

ON Measurand, Measurandiype, Terminall, TerTninal2 ; 

MODIFY Grouping TO BTree UNIQUE 

ON Grouping, Relationship, Member; 

^°°^0N Objlctf^Probl^;^'^"® ^^^"^ "^^""^ GrassCatcher frame V 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



CREATE UNIQUE INDEX Object $1 

ON Object (Type, PrimaryGroupingName, Name) 
WITH STRUCTURE = BTREE; 

CREATE UNIQUE INDEX Object$2 

ON Object (PrimaryGrouping, Object) 
WITH STRUCTURE = BTREE; 

CREATE UNIQUE INDEX LoadCurve$l ON LoadCurve 
(LoadCurve) 

WITH STRUCTURE = BTree; 

■CREATE UNIQUE INDEX ExtendedTypeSl 

ON ExtendedType (SuperType, Type) 
WITH STRUCTURE = BTREE; 

CREATE UNIQUE INDEX Terminal $1 ON Terminal 
( Node , Ob j ect , Terminal ) 
WITH STRUCTURE - BTree; 

CREATE UNIQUE INDEX Groupings 1 ON Grouping 
(Member, Relationship, Grouping) 
WITH STRUCTURE = BTree; 
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Copyright 1991, 1992 by Unified Information, Inc 
^ii Rights Reserved. Unpublished rights reserved unde^- the 
copyright laws of the United States. unae. c^e 

The software contained on this media is proprietary to anrt 
embodies the confidential technology of Unified l^orSaci or Tn- 
rnrt^min-f"' '^se, duplicacion or dil^eminaiion of the^ftSSre 

RESTRICTED RIGHTS LEGEND Use. duplication, or disclosure bv th- 
U.S. Governinent is subject to restrictions as set fo?ch in^ 
subparagraph^ (c,^ a, ^(ii. of DFARS 252 .227-?§l!^^^°frr^ 

executed to drop the rules when desired. A nawk nrorrMm 
: ^t^'tHrct^n^^r"- PurpoL?^rlJd^§°r^'^n 

* "nawk -f create_to_drop.nawk\ 

creace_notif ication . sql\ 
> cirop_notification.sql- 

/* 

Define the events that can be raised 

. CREATE DBEVENT Udb.ChangeName ; 
CREATE DBEVENT Udb_ChangeOb j ect ; 

DBEVENT Udb_.ChangeElectrical; 
CREATE DBEVENT Udb.ChangeConnect ivity ; 

/• 

*^ Handle changes to the object record 

CREATE PROCEDURE Udb^ChangeSName 

* j^^ii^aryGroupingName VARCHAR(20) NOT NULL 

TypeName VARCHAR(20) NOT NULL 

, ^ Name VARCHAR(20) NOT NULL 

DECLARE 

BEGIn''^"^'^^"'^ * VARCHAR(256) NOT NULL; 



END; 



CREATE RULE Udb_Change$Name 

AFTER INSERT, UPDATE ON Object 

WHERE Old.PrimaryGroupingName 1= New . PrimaryGroupingName OR 
Old . TypeName != New.iypeName OR ^ *yiMaine 

Old. Name i= New. Name 

EXECUTE PROCEDURE Udb_Change$Name 
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( PriitiaryGroupingName = New. Prima ryG roup ingName 
TypeName = New . TypeNaine 
Name = New. Name 

) ; 

CREATE PROCEDURE Udb_Chang€$Obj ect 
( Tid INTEGER 
) = 

DECLARE 

PrimaryGroupingName VARCHAR(20) NOT NULL; 
IVpeName VARCHAR(20) NOT NULL; 

Name VARCHAR(20) NOT NULL; 

EvenCTexC VARCHAR(256) NOT NULL; 

BEGIN 

SELECT : PrimaryGroupingName = O. PrimaryGroupingName, 

: TypeName = O. TypeName, 

:Name = O.Name 
FROM Object O 
WHERE :Tid = O.Tid; 

EventTexc = SQUEEZE (PrimaryGroupingName + ' ' + TypeName ' ' + Name); 
RAISE DBEVENT Udb_ChangeObject : Event Text; 

END; 

CREATE RULE Udb_Change$Ob j ect 

AFTER INSERT, UPDATE ON Object 

WHERE Old. Description 1= New .Description OR . 

Old. Comment != New. Comment OR 

Old. Terminals != New. Terminals OR 

Old.InService New . InService OR 

Old. Out Service != New. Out Service OR 

Old. Posit ionX New.PositionX OR 

Old.PositionY != New. Posit ionY OR 

Old. Owner Number i= New . OwnerNumber OR 

Old . SerialNumber i= New. SerialNumber OR • 

Old . SpecNumber •= New . SpecNumber 
EXECUTE PROCEDURE Udb_Change$Obj ect 
'( Tid = New. Tid 
> ; 

/* 

* Conducting plant 

-/ 

CREATE PROCEDURE Udb_Change$ Electrical 
( Object INTEGER 
) = 

DECLARE 

PrimaryGroupingName VARCHAR(20) NOT NULL; 
TypeName VARCHAR(20) NOT NULL; 

Name VARCHAR(20) NOT NULL; 

Event Text VARCHAR(256) NOT NULL; 

BEGIN 

SELECT : PrimaryGroupingName = O. PrimaryGroupingName, 

: TypeNeune « O . TypeName , 

:Name = O.Name 
FROM Object O 
WHERE : Object = O.Object; 

EventText = SQUEEZE (PrimaryGroupingName + ' ' + TypeName ^ ' ' + Nan-e) 
RAISE DBEVENT Udb_ChangeElectrical : EventText; 

END; 

CREATE RULE Udb_Change$Capacitor 

AFTER INSERT, UPDATE ON Capacitor 
EXECUTE PR(X:edure Udb_Change$Electrical 
( Object = New. Object 
) ; 



CREATE RULE Udb.Change$Conductor 
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AFTER IMSERT, UPDATE ON Conductor 
EXECUTE PROCEDURE Udb_Change$Eieccrical 
( Object = New. Object 
) ; 

CREATE RULE Udb_Change$ Consumer 

AFTER INSERT, UPDATE ON Consumer 
WHERE Old.Pfixed ]= New.Pfixed OR 
Old.Qfixed 1= New.Qfixed OR 
Old.Pnom != New.Pnom OR 
Old.Qnom != New.Qnom OR 
Old.PVexp != New.PVexp OR 
Old.QVexp •= New.QVexp OR 
Old.PFexp != New.PFexp OR 
Old.QFexp != New.QFexp 
EXECUTE PROCEDURE Udb_Change$Electrical 
( Object = New. Object 
) ? 

CREATE RULE Udb_Change$Generator 

AFTER INSERT, UPDATE ON Generator 
EXECUTE PROCEDURE Udb.change$ Electrical 
( Object = New. Object 
) / 

CREATE RULE Udb_Change$ React Or 

AFTER INSERT, UPDATE ON Reactor 
EXECUTE PROCEDURE Udb.ChangeS Electrical 
( Object = New. Object 
) t 

■ CREATE RULE Udb_Change$ Switch 

AFTER INSERT, UPDATE ON Switch 
EXECUTE PROCEDURE Udb^ChangeS Electrical 
( Object = New. Object 
) ; 

CREATE RULE Udb_Change$ Trans former 

AFTER INSERT, UPDATE ON Transformer 
EXECUTE PROCEDURE Udb_Change$Electrical 
( Object = New. Object 
) ; 

CREATE RULE Udb_Change$Winding 

AFTER INSERT, UPDATE ON Winding 
EXECUTE PROCEDURE Udb.ChangeS Electrical 
( Object = New. Object 

CREATE RULE Udb_Change$TapSetting 

AFTER INSERT, UPDATE ON TapSetting 
EXECUTE PROCEDURE Udb_Change$Electrical 
( Object = New. Object 
); 



/* 



Specifications 



Interactions 
*/ 

CREATE PROCEDURE Udb_Change$Connect ivity 
i ^ Object INTEGER 

DECLARE 

PrimaryGroupingName VARCHAR(20) NOT NULL; 
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TypeName VARCHAR(20) NOT NULL; 

Name VARCHAR(20) NOT NULL; 

Event Text VARCHAR(256) NOT NULL; 

BEGIN 

SELECT : Prima ryGroupingName = O . Prima ryC roup ingName, 

: TypeName = O.iypeName, 

:Name = O.Name 
FROM Object O 
WHERE : Object = O. Object; 

EventText = SQUEEZE ( PrimaryGroupingName + ' ' + TypeName + ' ' ^. Nan-.e 
RAISE DBEVENT Udb.ChangeConnect ivity : EventText; 

END; 



CREATE RULE Udb.ChangeS Terminal 

AFTER INSERT. UPDATE ON Terminal 

WHERE Old. Node New. Node 

EXECUTE PROCEDURE Udb_Change$ Connectivity 

( Object = New. Object 

) ; 
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a??^^!-^^^ i^^^' 1992 by Unified Information. Inc. 

^^^D^^i^^^^'^Y®^^ unpublished rights reserved under the 
copyrxght laws of the United States. " 'u«ir tne 

I™hort?l«'^f?f contained on this media is proprietarv to and 
embodaes the confidential technology of Unified Information t,— 

fnd^^fH^?"U^^*AK^"P^^S^'^^°'^ °^ dil^emination of the^ftSare 

f^om'SSili^I fU^SS^t^f^nr'^iL^""""" ^° ^ ""^''^ written^rf^nse 



Generic reject procedure 
^^^^bIgIN^^^^"^^ Reject {Problem VARCHAR(20) NOT NULL) = 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES <0, : Problem); ^rooxem; 

. /* ' 

* Object table 

*/ 
/* 

♦/ Sort out an object on insert 

CREATE PROCEDURE Object$ Insert 
( Tid INTEGER 
Object INTEGER 
SystemVersion INTEGER 

INTEGER 

PrxmaryGrouping INTEGER 
J ^ Terminals INTEGER 

DECLARE 

Baseiype INTEGER; 

TableName VARCHAR (20); 

Loop INTEGER; 

AddGrouping INTEGER; 

BEGIN 

/• 

• the insert^^ " neither is good, reject 
*/ ' 

SELECT : Baseiype = BT.Type, 

: TableName = BT. TableName 
FROM lype T, • 

BaseType BT 
WHERE iiype = T.iype AND 

T. BaseType = BT.iype; 

IF BaseType = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
tr.xtT.^^ VALUES {:Object, 'Object_012 ' ) ; 
ENDIF; 

/* 

• that^'^h^^^K^fXn^^: ^^^.^^^^^^ if one was not supplied, and ensure 
tnat the object is xn its primary group 
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AddGrouping 

IF Object = 
UPDATE 
SET 
WHERE 

SELECT 

FROM 

WHERE 



-1 THEN 
Last Key K 

Value = K. Value -e 1 
K. Last Key = 'Object'; 

: Object = K. Value 
Last Key K 

K. Last Key = 'Object'; 



IF Primary Grouping • = 0 THEN 

AddGrouping = 1 ; 
ENDIF; 

ENDIF; 

Set the object key and base type. 

Get the type name from the type record and 

get the primary grouping name from its object record. 

Set up the creation date and user 



UPDATE 
FROM 

SET 



WHERE 



Object O 

Type T, 

Object PG 

Object = : Object, 

BaseType = :BaseType, 

lypeName = T.Name, 

Prima ryGroupingName = PG.Name, 

Created = 'Now , 

Great edBy = VARCHAR (User) 

:Type = T.Type AND 

: PrimaryGrouping = PG. Object AND 

:Tid = O.Tid; 



IF AddGrouping = 1 THEN 
INSERT INTO Grouping 
( SystemVersion 
, Grouping 
, Member 
, Relationship 
) 

VALUES 

( : SystemVersion 
, : PrimaryGrouping 
, : Object 

,52 /* Type$member_of */ 

) ; 

ENDIF; 

Insert terminals for the object 
Loop = 1 ; 

WHILE Loop <= Terminals DO 
INSERT INTO Terminal 
(Object 
, BaseType 
, Terminal 
) 

VALUES 

( : Object 
, : BaseType 
, :Loop 
) ; 
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Loop = Loop * 1 ; 
ENDWHILE; 



Insert the associated type specific row (if any) 
IF TableNaine = • ' THEN 

ELSE?f''t«Mom=' '^*bleName; /* Do nothing •/ 
Jf^c.IS°^®'^^® = 'Generator' THEN 
^^JNSERT INTO Generator (Object) VALUE"? i 
^^^m^l^^^^t^ams = 'Consumer- tSen (:Ob3ect); 

ELSEIF Tabl«i;JIS^^°"?Ji"*^ (Object) VALUES (:Object). 
^^^^^^_^ableName = 'Capacitor' THEN '^ojeccj . 

ELSE!Ff^L^JSSe^^^?|«-„<?^^^' ^^"-^ CObject); 
ELSE^?^?^Sl|?JSe^f"?ieL<iS?^?SI^ ^^"^S CObject); 

HI.SH|^^pSli^e^f^^i^°a^e%%iS^i?^ ' =°^^-^> '• 

ELSEIF TableName = 'Telem4try' THEN 

ELSsfp^^^K.^S^ "^^^^"^^^^ (Object) VALUES (zObiect)- 

ELSEIF TableName = 'TowerTvme' then i-'-'ojeccj, 

ELSEIF ?^bll^»^°"^^"°^ (Object) VALUES (: Object ); 
ti-SEiF TableName = 'Computer' THEN v^^ject;, 

HLSEff?^2lll2ISe'^2"^^^^^^^^ ^^^^^ CObject); 

ENDlir^""^ (Object) VALUES (.-Object); 



END; 



*^ Do validation on an object 

CREATE PROCEDURE Object$ Validate 
( Object INTEGER 
4 InService DATE 
OutService DATE 



) = 



BEGIN 



> OutService then 

vlrSSi^/^^S^^*^^*^^^^^ (Object, Problem) 
ENDIF; ^^^^ (:Ob3ect, 'Object^OOl ' ) ; 

END; 



CREATE PROCEDURE Object $Name 
* Tid INTEGER 
j _ BaseType INTEGER 

BEGIN 

UPDATE Object O 
FROM Object PG 

^ppp ^^jiijaryGroupingNaiiie = PG.Name 
WHERE :Tid = PG.Tid AND 

PG. Object = O.PrimaryGrouping; 
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END; 

/• 

Maintain the TypeName in the Object 

*/ 

CREATE PROCEDURE Object $ TypeName 
( Tid INTEGER 
) = 

BEGIN 

UPDATE Object O 
FROM Type T 
SET TypeName = T.Name 

WHERE T.Type = O.Type AND 
O.Tid = :Tid; 

END; 

* Ensure that the object always belongs to its primary group. 
*^ If the object is a Consumer, then update the load model. 

CREATE PROCEDURE Object SPrimaryGrouping 
Tid INTEGER 
Object INTEGER 
SystemVersion INTEGER 
Old^PrimaryGrouping INTEGER 
New.PrimaryGrouping INTEGER 

DECLARE 

References INTEGER NOT NULL; 

BEGIN 

/• 

* If there is a primary grouping defined, ensure that the 
*^ object exists as a member of the group 

IF New^PrimaryGrouping != 0 THEN 

SELECT :References = COUNT(*) 
FROM Grouping G 

WHERE :New_PrimaryGrouping = G. Grouping AND 
: Object = G. Member; 

IF References = 0 THEN 
INSERT INTO Grouping 
{SystemVersion 
, Grouping 
.Member 
, Relationship 
) 

VALUES 

( : SystemVersion 

, :New_PrimaryGrouping 

, : Object 

,52 /♦ Type$member_of ♦/ 

); 

ENDIF; 
ENDIF; 

Ensure that the primary grouping name for the object is correct 

UPDATE Object O 
FROM Object PG 

SET Prima ryG roup ingName = PG.Name " 

WHERE :New_ Primary Grouping = PG- Object AND 
O.Tid = :Tid; 



*/ 
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Blindly update the load model. Nothing will hanoen unless = -k-. 

rHiTr^tfn,^''^^*'^^''^'^'^ grouping is alsS'^r^onsiSi? "^'^ ' 
iLrf iorff?^^?""-^^^ detached from a hxgher level part of the 

load model, set its percentages to 100. 

UPDATE Consumer LM 
FROM Consumer c 

SET Pfixed = IFNULI.(LM.PFixed,0) - IFNULL (C . Pf ixed 0) 

Pnom = IFNULL(LM.Pnoin,0) - IFNULL(C.Pnom 0) 
Qfixed = IFNULL (LM.QFixed.O) - IFNULLtC Qf ii4d 0) 

WHERE ?Sgject fTSy^t^S^'^' - ^^^^C.Qnolor"'''- 
:01d_PrimaryGrouping = LM. Object; 



UPDATE 

FROM 

SET 



WHERE 



Consumer LM 
Consijiner C 

Pfixed = IFNULL (LM. PF ixed, 0) + IFNULL (C Pfixed 0) 
Pnom = IFNULL (LM. Pnom, 0) * IFNULL (C Pnomfo)" 
Qfixed = IFNULL (LM.QFixed,0) + IFNULL (C Of ixed 0) 
Qnom = IFNULL (LM.Qnom,0) ^ IFNULL ( cTQnoiiTo )" ' 
: Object = C. Object AND w"w*u, 
: New_PriinaryGrouping = LM. Object; 



IF IIRowCounC = 0 THEN 
UPDATE Consumer C 
SET PfixedPct = 100, 
PnomPct = 100, 
QfixedPct = 100, 
QnomPct = 100 

^ ^^WHERE lObject = C. Object; 

ENDIF; 



END; 



Conducting plant validation 



CREATE PROCEDURE ConductorSValidate 
( Object INTEGER 

R REAL 

« ^ REAL 
J _^ sch REAL 

BEGIN 

IF (X / R) < 5 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
ENDIF • ^^^^^ ( : Obj ect , ' Conductor.OOl ' ) ; 

END; 

/* 

*^ Update the load model when a consumer is changed 

CREATE PROCEDURE Consumer$UpdateLoadModel 
' Ob3 ect INTEGER 



01d_Pfixed 
New_Pf ixed 
01d_Pnom 
New_Pnom 
01d_Qfixed 
New_Qfixed 
01d_Qnom 
New^Qnom 

BEGIN 



REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
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Recursively update che hierarchy of consumers in the ioaci model 

* from Che bottom up. This will scop when an objecc chac is not a 
consumer is encountered 

•/ 

UPDATE Consumer LM 
FROM Objecc O 

SET Pfixed = IFNULL(LM.PFixed. 0) * 

(IFNULL(New_Pfixed, 0) - IFNULL (01d_Pf ixed, 0 ) ) , 
Pnom = IFNULL ( LM . Pnom , 0 ) + 

(IFNULL(New_Pnom, 0) - IFNULL (01d_ Pnom, 0 )) , 
Qfixed = IFNULL (LM.QFixed, 0) + 

( IFNULL (New.Qfixed.O) - IFNULL (01 d_Qfixed, 0 ) ) , 
Qnom = IFNULL ( LM.Qnom, 0) t- 

( IFNULL (New_Qnom, 0 ) - IFNULL (01d_Qnom, 0 ) ) 
WHERE : Object = O- Object AND 

O. Primary Grouping = LM. Object; 

/* 

* If we have hit the top this consumer represents 100% of the 

* load in its hierarchy. Set this up to trigger a re-calculation 

* of all the child consumer percentages. 
*/ 

IF IIRowCount = 0 THEN 
UPDATE Consumer C 
SET PfixedPct = 100, 

PnomPct = 100, 
QfixedPct = 100, 
QnomPct = 100, 
TopLoadArea = C. Object 
WHERE : Object = C.ObjecC; 
ENDIF; 

END; 

/• 

Update the distribution of the loads by percentage from the 

* top down. 
*/ 

CREATE PROCEDURE Consumer $UpdaceLoadPct 
( Object INTEGER 
Pfixed REAL 
Pnom REAL 
Qfixed REAL 
Onom REAL 
PfixedPct REAL 
PnomPct REAL 
QfixedPct REAL 
QnomPct REAL 
TopLoadArea INTEGER 



) = 
/* 



BEGIN 



If there is che possibility of a divide by zero, then use a trash 
(but safe) value as the divisor, and force the result to zero 

IF ABS (Pfixed) < 0.0000001 THEN 

PFixed = 1; * 

PFixedPct = 0; 
ENDIF; 

IF ABS (Pnom) < 0.0000001 THEN 

PNom = 1; 

PNomPct = 0; 
ENDIF; 

IF ABS (Qfixed) < 0.0000001 THEN 
QFixed = 1; 
QFixedPct = 0; 
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ENDIF; 

IF ABS(Qnoin) < 0.0000001 THEN 

QNom = 1; 

QMomPct = 0; 
ENDIF; 

/* 

Recalculate the child percentages 

UPDATE Consxiiner C 
FROM Object O 

SET PfixedPct = (CPfixed / iPfixed) * :PfixedPct 

PnomPct = (C.Pnom / :Pnom) * : PnomPct 
QfixedPct = (C.Qfixed / :Qfixed) * :QfixedPct 
QnomPct = (CQnom / :Qnom) * rQnomPct, ' 
t«Tr«t=» TopLoadArea = :TopLoadArea 
WHERE : Object = O.PrimaryGrouping AND 
O. Object » C.Object; 

END; 

/* 

* ^^''fhi.^^S^^^ef J^'^'''^'-^^ belongs to a transformer and 

get tne next sequence number 

CREATE PROCEDURE Windings Insert 
( Tid INTEGER 

Object INTEGER 

KVLevel REAL 

DECLARE 

Baseiype INTEGER; 

References INTEGER NOT NULL; 

MaxSeq INTEGER; 

BEGIN 

SELECT :BaseType = O.BaseType 

FROM Object O 

WHERE : Object = O. Object; 

^r%t^^.iZr.^l ^e$Transformer V 

INSERT INTO Grasscatcher (Object. Problem) 
VALUES (: Object, ' Transf ormer.008 ' ) ; 

Get a sequence niunber for the winding 

SELECT MaxSeq = MAX (Winding) 
FROM Winding 
vmERE Object = : Object; 

IF MaxSeq IS NULL THEN 
MaxSeq =1; 

ELSE 

MaxSeq =s MaxSeq + 1; 
ENDIF; 

Update the number of terminals for the transformer 
UPDATE Object 

SET Terminals = Terminals + 1 

WHERE Object = : Object; 

INSERT INTO Terminal 
(Object 
, BaseType 
, Terminal 
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, KVLevel 

) 

VALUES 

( : Object 
, : BaseType 
, :MaxSeq 
, : KVLevel 
) ; 

/* 

Update the winding last cos it can change the Tid 

♦/ 

UPDATE Winding 

SET Winding = :MaxSeq 

WHERE Tid = :Tid; 

END; 

/* 

* Validate the attributes of a winding 
*/ 

CREATE PROCEDURE WindingSValidate 
( Object INTEGER 
Name CHAR (10) 

LoadTapChanger INTEGER 
NominalKV REAL 
NeutralKV REAL 
LowStep INTEGER 
HighStep INTEGER 
NeutralStep INTEGER 
StepSize REAL 

DECLARE 

Steps INTEGER; 
KVDiff REAL; 

BEGIN 

IF LoadTapChanger i= 0 AND LoadTapChanger i= 1 THEN 
INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES { : Object, Name, 'Trans.*:onner.003 ' ) ; 

ENDIF; 

. IF LowStep > HighStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( : Ob j ect , Neune , ' Trans f ormer^O 04 ' ) ; 

ENDIF; 

IF NeutralStep < LowStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( : Ob j ec t , Name , ' Trans f ormer_0 05'); 

ENDIF; 

IF NeutralStep > HighStep THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( : Ob j ect , Name , ' Trans forme r_0 06'); 

ENDIF; 

IF StepSize = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( :Ob j ect , Name , ' Trans f ormer_0 07 ' ) ; 

ENDIF; 

IF NeutralKV = NominalKV THEN 

Steps =0; 
ELSEIF NeutralKV > NominalKV THEN 

Seeps = LowStep - NeutralStep; /• negative steps to get there 
ELSEIF NeutralKV < NominalKV THEN 
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ENDIF^®^^ " HighStep - NeucralScep; /• positive steps to gee there - 

^^Hl " * StepSize * NeutralKV / 100); 

KVDiff = KVDxff * (NeutralKV * 0.10); /* Allow 10% overdrive 

IF KVDiff < ABS {NeutralKV - NominalKV) THEN 

^^^^^Tt?t^/^^^^^^^^'=I:J^^ (Object, Text, Problem) 
ENDIF • ^^^^^ ( : Ob3 ec t , Name , ' Transf ormer^O 01'); 

IF StepSize > 10 THEN 

^^^^^Itt^tSJ^/^^?^^^^^^^®^ (Object, Text, Problem) 
ENDIF • ^^^^^ * ' Name , ' Trans former.O 02 ' ) ; 

END; 

/• 

Clean up on delete of a winding 

CREATE PROCEDURE Winding$ Delete 
( Object INTEGER 
, Winding INTEGER 

BEGIN 

/* 

Reduce the number of terminals for this transformer 

DELETE FROM Terminal 
WHERE Object = : Object AND 
Terminal = : Winding; 

UPDATE Object 

Pr^Z^^ Terminals = Terminals - rllRowCount 
WHERE Ob3ect = : Object; 

END ; 

/* 

*^ Validate the attributes for a tap setting 

- CREATE PROCEDURE TapSetting$Validate 

( Object INTEGER 

Wmdmgl INTEGER 

TapStepl INTEGER 

Winding2 INTEGER 

TapStep2 INTEGER 

Windings INTEGER 

J _ TapStep3 INTEGER 

DECLARE 

LowStep INTEGER WITH NULL; 

HighStep INTEGER WITH NULL;. 

BEGIN 

LowStep = NULL; 
HighStep = NULL; 

SELECT : LowStep = W. LowStep, 

: HighStep = W. HighStep 
FROM Winding W 
WHERE W. Object = : Object AND 

W. Winding = :Windingl; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
INSERT INTO GrassCatcher (Object, Problem) 
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VALUES ( : Object, ' Transf onner_009 ' ) ; 
ELSEIF TapStepl < LowStep OR TapStepl > HighStep THEN 
INSERT INTO GrassCatcher (Object. Problem) 
VALUES ( : Object, ' Transf ormer^OlO ' ) ; 

ENDIF; 

LowStep = NULL; 
HighStep = NULL; 

SELECT : LowStep - W. LowStep. 

: HighStep = W. HighStep 
FROM Winding W 
WHERE W. Object = : Object AND 
W. Winding = :Winding2; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( : Object, ' Trans former_0 09 ' ) ; 
ELSEIF TapStep2 < LowStep OR TapStep2 > HighStep THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( : Ob j ec t , ' Trans f ormer.0 10'); 

ENDIF; 

LowStep = NULL; 
HighStep ^ NULL; 

SELECT : LowStep = W. LowStep, 

: HighStep = W. HighStep 
FROM Winding W 
WHERE W, Object = : Object AND 
W. Winding « :Winding3; 

IF LowStep IS NULL AND HighStep IS NULL THEN 
/* May not be a three way measurement */ 

LowStep = HighStep; /* Empty statement blocks not allowed! 

ELSEIF TapStep3 < LowStep OR TapStep3 *> HighStep THEN 
INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( : Object, ' Trans former_0 10 ' ) ; 

ENDIF; 

END; 

Specifications 

'/ 

Get the surrogate key set up on inserts 

CREATE PROCEDURE LoadCurveS Insert 
( Tid INTEGER 
LoadCurve INTEGER 

) = 

BEGIN 

IF LoadCurve- = -1 THEN 
UPDATE Last Key 
SET Value = Value + 1 
WHERE LastKey = 'Curves'; 

UPDATE LoadCurve C 

FROM LastKey K 

SET LoadCurve = K. Value 

WHERE C.Tid = :Tid AND 

K. Last Key = 'Curves' ; 

ENDIF; 

END; 
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/ * 

Check Che referenced types exist on inserts 

CREATE PROCEDURE SuperiypeS Insert 

( Type INTEGER 

J SuperType INTEGER 

DECLARE 

References INTEGER NOT NULL; 

BEGIN 

SELECT .'References = COUNTC) 

FROM Type 

WHERE lype = ;Type; 

IF References = 0 THEN 

^^^^Si'T?T2P,S''^?S?^^^J?f^ (Object, Problem) 
VALUES { 0 , "IVpe_004 ' ) ; 

ENDIF; 

SELECT : References = COUNT(*) 
FROM Type 

WHERE lype = : SuperType; 
IF References = 0 THEN 

^^^^fJr^TSP^S^*^^^^*"^^®^ (Object, Problem) 
VALUES (0, 'Type 005'); 
ENDIF; ^ft- - 

/* 

* Insert the type and all its supertypes as 

supertypes in the extended type list 

INSERT INTO ExtendedType 
(Type 

, SuperType 

VALUES 

( riype 
, :Type 

); 

INSERT INTO Extendediype 
(Type 

, SuperType 

SELECT :Type, 

SuperType 
FROM ExtendedType 
WHERE Type = .-SuperType; 

END; 

Ensure that there are no references to the sub-type on delete 

CREATE PROCEDURE SuperTypeS Delete 
( Type INTEGER 

DECLARE 

References INTEGER NOT NULL; 
Name CHAR (20) NOT NULL; 



BEGIN 



SELECT :Name = T.Name 
FROM Type T 
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WHERE I Type = T.Type; 

SELECT : References = COUNTC) 

FROM Super Type ST 

WHERE iType - ST. SuperType; 

IF References != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, :Name, 'Type_001'); 

ENDIF; 

SELECT : References = COUNT(*) 

FROM Object O 

WHERE :Type = O.Type; 

IF References != 0 THEN 

INSERT INTO GrassCaccher (Object, Text, Problem) 
VALUES (0, :Name, "IVpe_002'); 

ENDIF; 

DELETE FROM ExtendedType 
WHERE :Type = Type; 

END; 

/* 

* Get the surrogate Icey set up on inserts 
*/ 

CREATE PROCEDURE Type$ Insert 
( Tid INTEGER 
Type INTEGER 

) = 

BEGIN 

IF Type = -1 THEN 

UPDATE LastKey 

SET Value = Value 1 

WHERE LastKey = 'Type'; 

UPDATE Type C 

FROM LastKey K 

SET Type = Revalue 

WHERE C.Tid = :Tid AND 

K. LastKey = 'Type'; 

ENDIF; 

END; 

/» 

* Prevent delete if the type is referenced in the 

* super -type - sub- type heirarchy 
*/ 

CREATE PROCEDURE TypeSDelete 
( Type INTEGER 

Name VARCHAR(20) 

) = 

DECXjARE 

References INTEGER NOT NULL; 
BEGIN 



Verify that the Type is not a system type 

IF Type < 10000 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( 0 , : Name , ' Type_0 03 ' ) ; 

ENDIF; 

Verify that the Type is not a supertype 
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SELECT : References = COUNT(*) 

FROM SuperType 

WHERE SuperType = iType; 

IF References • = 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, rName, "IVpe 001')- 
ENDIF; - ' ' 

END; 

/* 

Propagate any change to the value of a kVLevel 

CREATE PROCEDURE kVLevel$ Update kVLevel 
( Oid_kVLevel REAL 
New_kVLevel REAL 

) = 

BEGIN 

UPDATE Terminal T 

SET kVLevel = :New.kVLevel 

WHERE :01d_kVLevel = T. kVLevel; 

END; 

/* 

Block delete of a kVLevel if there are any 
*^ terminals at that voltage 

CREATE PROCEDURE kVLevel $Delete 
( kVLevel REAL 
) = 

DECLARE 

References INTEGER NOT NULL; 
BEGIN 

SELECT : References = COUNT(*) 

FROM Terminal T 

WHERE : kVLevel = T. kVLevel; 

IF References •= 0 THEN 

INSE31T INTO GrassCatcher (Object. Text, Problem) 
g^^p^ VALUES (0, VARCHAR( : kVLevel J , 'Object_002 ' ) ; 

END; 

/* 

* coSSIIted teLina^s'^""^^ terminal voltage levels across all the 
CREATE PROCEDURE kVLevel $ Propagate 

DECLARE 

stext varchar(40) not null; 

Loop INTEGER NOT NULL; 

Maxlterations INTEGER NOT NULL; 
BEGIN 

DELETE FROM TEMPS TerminalLis t ; 
DELETE FROM TEMP$Ob j ectList ; 
DELETE FROM TEMP $ Audi t Trai 1 ; 

* Build a list of all the transformer tenninals to use as a start coi-- 
*^ and record the fact that they have been processed. stare poa.._, 

INSERT INTO TEMP$TerminalList 

SELECT * 

FROM Terminal 

WHERE BaseType = 27; /» 'lVpe$Trans former */ 



INSERT INTO TEMPS Audit Trail 
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SELECT Object 
FROM TEMPSTerminalList ; 

Loop, looking for new objects, 
when they are found 

Loop = 1 ; 

Maxlteracions = 40; 

WHILE Loop <= Maxlterations DO 

Get a list of all the objects connected to the terminals in the 
terminal list, propagating the voltage from the terminal list 

DELETE FROM TEMPSObj ectList ; 
INSERT INTO TEMP$Obj ectList 

(Object 

, kVLevel 

) 

SELECT DISTINCT 
T - Ob j ect , 
TL. kVLevel 
FROM Terminal T, 

TEMP$TerTninalList TL 
WHERE TL.Node = T.Node AND 

TL. Object != T. Object; 



/♦ same node */ 
/* different object */ 

Discard any that have already been visited, set the voltage levels 
for all the terminals of those that remain, and add them to the ' 
audit trail 

DELETE FROM TEMPSObj ect Li St OL 

WHERE OL. Object = (SELECT Object FROM TEMPS Audit Trail) ; 

U PD ATE Te rmi na 1 T 
FROM TEMPSObj ectList OL 
SET kVLevel = OL. kVLevel 

WHERE T. Object = OL. Object AND 
T.Node >= 10000; 



/* object in object list 
/• not a system node */ 



INSERT INTO TEMPS Audi tTrail 
SELECT DISTINCT Object 
FROM TEMPSObj ectList ; 

Find all the other terminals for these objects 

DELETE FROM TEMP S Terminal Lis t ; 
INSERT INTO TEMPSTerminalList 
SELECT DISTINCT T.* 
FROM Terminal T, 

TEMPSObj ectList OL 
WHERE OL. Object = T. Object AND 

T.Node >= 10000; 



same object */ 

not a system node */ 



IF IlRowCount 

ENDLOOP; 
ENDIF; 

Loop = Loop f 
ENDWHILE; 



= 0 THEN 



1; 



create table objectlist as 
select object 
from object 
where basetype 1= 27 and 
terminals > 1; 
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select ol. object 
from objectlist ol, 

terminal tl, 

terminal t2 

where ol. object = TEMP$objectlist . object and 
ol.ob3ect = t2. object and 
tl. terminal != t2 . terminal and 
tl.node >= 10000 and 
t2.node >= 10000 and 
tl.kvlevel 1= t2.kvlevel; 

END; 

/* 

* Interactions 
*/ 
/♦ 



Check that not too many terminals are being used 

CREATE PROCEDURE Terminal $ Validate 
( Tid INTEGER 

) = 



Object INTEGER 



DECLARE 

References INTEGER; 

MaxTerm INTEGERS- 
BEGIN 

SELECT : References = COUNT(*) 
FROM Terminal 
WHERE Object = : Object AND 
Terminal > 0; 

SELECT ; MaxTerm = Terminals 

FROM Object 

WHERE Object = : Object ; 

IF References > MaxTerm THEN 

INSERT INTO GrassCat Cher (Object, Problem) 
^j^. VALUES (:0b3ect, 'Object.003 ' ) ; 

END; 



Check the referenced objects exist on inserts 

CREATE PROCEDURE Groupings Insert 
^Tid INTEGER 
, Grouping INTEGER 
, Member INTEGER 

DECLARE 

Groupingiype INTEGER WITH NULL; 

BEGIN INTEGER WITH NULL,' 

Groupingiype = NULL; 

SELECT : GroupingType s Tvpe 

FROM Object 

WHERE Object = : Grouping; 

IF Groupingiype IS NULL THEN 

^^^^^rL?T^.?"^S?^^^^^^ (Object, Problem) 
VALUES (0, 'ObDect_004' ) ; 

ENDIF; 

MemberType = NULL; 
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SELECT rMemberType = Type 

FROM Object 

WHERE Object = : Member; 

IF MemberType IS NULL THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES (0, 'Object_005' ) ; 

ENDIF; 

UPDATE Grouping 

SET GroupingType = rGroupinglVpe, 

MemberType = : MemberType 
WHERE :Tid = Tid; 

END; 

CREATE PROCEDURE GrassCatcher$Insert 
(Tid INTEGER 
, Ob j ect INTEGER 
, Problem CHAR (20) 

,Text CHAR (20) 

) = 

DECLARE 

References INTEGER NOT NULL; 

Description CHAR (60) NOT NULL; 
Severity CHARd) NOT NULL? 

BEGIN 

/• 

* Get rid of this entry if it is a duplicate 
*/ 

SELECT : References = COUNT(*) 

FROM GrassCatcher 

WHERE : Object = Object AND 

: Problem = Problem AND 

: Text = Text ; 

IF References > 1 THEN 

DELETE FROM GrassCatcher 

WHERE :Tid = Tid; 
ENDIF; 

/* 

* Show the problem description, and blow the transaction away 

* if the error is fatal 
*/ 

SELECT : Description = P . Description, 

: Severity = P. Severity 
FROM Problem P 
WHERE : Problem = P. Problem; 

IF Severity = 'F' THEN 

RAISE ERROR -1 Description; 

ELSE 

MESSAGE 0 Description; 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved Unpublished rights reserved under tho 

copyright laws of the United States. unaer tne 

The software contained on this media is proprietary to and 

P^sesfion^\«"^d^^^^ Unified !Sfo^?ion, Inc, 

possession, use, duplication or dissemination of the software 



l^i ^^l^ contain rules that fire in order to ensure referential 
/5^K?fM^^-c?^^"^-fy' is one for an insert on evlr^ table ^ 

^^^w^^S^®?^'^^®^^^^ one for a deletion on every table- 

(TableNameSDelece). There also may be a rule that ^irts oA an 
JiSfn^^ a . specific column (TableNameSUpdafe Colu^ISe? if that 
SodificatiSn^^^ ^ ^^^^^ REFERENTIAL. vaTidi^rthe 

The rules in this file are required to be active. 



Object table 

CREATE RULE Object Slnsertl 
AFTER INSERT ON Object 
EXECUTE PROCEDURE ObjectS Insert 
( Tid = New.Tid 

Object « New. Object 

SystemVersion = New.SystemVersion 
, lype = New. Type 

PrimaryGrouping = New . PrimaryGrouping 
, Terminals = New. Terminals 

CREATE RULE Obj ect$Delete 
AFTER DELETE ON Object 
EXECUTE PROCEDURE Reject 
( Problem = 'Object_006' 



) 



Conducting plant 



*/ 
/* 

*^ Transformer con^onents • 

CREATE RULE WindingSInsertl 
AFTER INSERT ON Winding 
EXECUTE PROCEDURE Winding$ Insert 
( Tid = New. Tid 

Object = New. Object 
J KVLevel = New.NominalKV 

CREATE RULE windingSDelete 
AFTER DELETE ON Winding 
EXECUTE PROCEDURE Winding$Delete 
( Object = Old. Object 
Winding = Old. Winding 
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) ; 

/• 

* Specifications 
♦/ 

CREATE RULE LoadCurve$Insertl 
AFTER INSERT ON LoadCurve 
EXECUTE PROCEDURE LoadCurve$ Insert 
( Tid = New.Tid 

LoadCurve = New. LoadCurve 

) ; 

CREATE RULE LastKey$Delete 
AFTER DELETE ON Last Key 
EXECUTE PROCEDURE Reject 
( Problem = 'Object_006' 

) ; 

CREATE RULE SuperTypeSlnsertl 
AFTER INSERT ON SuperType 
EXECUTE PROCEDURE S up er Type $ Insert 
( lype = New. Type 

SuperType = New. SuperType 

); 

CREATE RULE SuperType $ Delete 
AFTER DELETE ON SuperType 
EXECUTE PROCEDURE SuperTypeS Delete 
( lype * Old. Type 
) ; 

CREATE RULE Type$ Insert 1 
AFTER INSERT ON Type 
EXECUTE PROCEDURE Type$Insert 
( Tid = New.Tid 
Type = New.iype 

) ; 

CREATE RULE TypeSDelete 
AFTER DELETE ON Type 
EXECUTE PROCEDURE Type$Delete 
( *iype S5 Old. Type 
Name = Old. Name 

) ; 

CREATE RULE kVLevel$Update_kVLevel 

AFTER UPDATE (JcVLevel) ON kVLevel 
EXECUTE PROCEDURE kVLevel$Update_kVLevel 
( Old.kVLevel = Old.kVLevel 
New^kVLevel = New.kVLevel 

) ; 

CREATE RULE kVLevel$Delete 
AFTER DELETE ON kVLevel 
EXECUTE PROCEDURE kVLevel $ Delete 
( kVLevel = Old.kVLevel 
) ; 

/* 

* Interactions 
•/ 

CREATE RULE Groupings Insertl 
AFTER INSERT ON Grouping 
EXECUTE PROCEDURE GroupmgSInsert 
( Tid = New.Tid 
, Grouping = New. Grouping 
« Member = New. Member 
) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media- is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



* This file contain rules that fire in order to ensure internal 
validity of the data in a row. Typically, there is one for an 

* insert on every table: ( Tab leNameS Ins ert2) .There also may be a 

* rule that fires on an update of a specific column: 

* (TableName$Update_ColumnName) if that change requires a check 

* on the internal validity o£ the modification. 

* The rules in this file are not required to be active. Although 

* they ensure that the data in a row is valid (often electrically); 

* they may be dropped to speed up bulk loading of data. Therefore 

* every rule that is defined in this file must have a corresponding 
• * entry in the file "drop_rules_validatibn. sql" , which can be 

* executed to drop the rules when desired. A nawk program, 

* cr€ate_to_drop.nawk exists for this purpose, and can be run 

* with the command: 
«• 

•nawk -f create_to_drop.nawk\ 

* create_rules_validation.sql\ 

* > drop.rules_validation.sql" 
•/ 

"/* 

* Object table 
*/ 

CREATE RULE Obj ect$Insert2 
AFTER INSERT ON Object 
EXECUTE PROCEDURE Obj ect$Vali date 
( Object » New. Obj act 

InService = New. Inservice 
Out Service = New -Out Service 

) ; 

CREATE RULE Ob ject$Update_Name 

AFTER UPDATE (Name) ON Object 
WHERE Old. Name 1= New. Name 
EXECUTE PROCEDURE ObjectSName 
( Tid = New.Tid 
, BaselVpe = New.BaseType 

CREATE RULE Object$Update_InService 

AFTER UPDATE (InService) ON Object 
WHERE Old. InService != New. InService 
EXECUTE PROCEDURE Ob j ect$Validat e 
( Object = New. Object 

InService = New. Inservice 

OutService = New. Out Service 

) ; 
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CREATE RULE Ob j ect $Update_OutService 

AFTER UPDATE (OutService) ON Object 
WHERE Old. OutService 1= New. OutService 
EXECUTE PROCEDURE Obj ect SValidate 
( Object = New. Object 

InService = New. inservice 
OutService = New. OutService 

) ; 

CREATE RULE ObjectSUpdate.iype 

AFTER UPDATE (Type) ON Object 
WHERE Old. Type != New. Type 
EXECUTE PROCEDURE Object STypeName 
( Tid = New.Tid 
) ; 

CREATE RULE Obj ect$Update_PG 

AFTER UPDATE (PrimaryGrouping) ON Object 

WHERE Old . PrimaryGrouping ! = New . PrimaryGrouping 

EXECUTE PROCEDURE Object $ PrimaryGrouping 

( Tid = New.Tid 

Object = New. Object 
SystemVersion = New. SystemVersion 
01d_PrimaryGrouping = Old. PrimaryGrouping 
, New_PrimaryGrouping = New . PrimaryGrouping 



* Conducting plant 

*/ 

CREATE RULE Conductor $ Insert 2 
AFTER INSERT ON Conductor 
EXECUTE PROCEDURE ConductorSValidate 
{ Object = New. Obj ect 

R = New.R 

X = New.X 
, Bch = New.Bch 

CREATE RULE Conductor$Update 
AFTER UPDATE ON Conductor 
EXECUTE PROCEDURE Conductor$Validate 
( Object = New. Obj ect 
, R = New.R 

X = New.X 

Bch s New.Bch 

) ; 

CREATE RULE ConsumerS Insert 2 
AFTER INSERT ON Consumer 

EXECUTE PROCEDURE Consumer $UpdateLoadModel 
( Object = New. Object 

Old.Pfixed = 0 

New_Pfixed = New.Pfixed 
s 01d_Pnom = 0 

New_Pnom = New.Pnom 

01d_Q fixed = 0 

New_Q fixed = New.Qfixed 

01d_Qnom = 0 
, New_Qnom = New.Qnom 
) ; 

CREATE RULE Consumer$UpdatePQ 

AFTER UPDATE ON Consumer 

WHERE Old.Pfixed •= New.Pfixed OR 
Old . Pnom ! = New . Pnom OR 
Old.Qfixed != New.Qfixed OR 
Ol d . Qnom ! = New . Qnom 

EXECUTE PROCEDURE Consumer SUpdateLoadModel 

( Object = New. Obj ect 

01d_Pfixed = Old.Pfixed 

, New.Pfixed = New.Pfixed 
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Old_pnom = Old.Pnom 
New_Pnom rr New.Pnom 
01d_Qfixed = Old.Qfixed 
New_Qfixed = New.Qfixed 
Old^Qnom = Old.Qnom 
New_Qnom = New.Qnom 

CREATE RULE Cons umerSUpdatePQ Pet 

^ip? ni^^^ (PfixedPct) ON consumer 

WHERE Old.T/pe = 91 /♦ IVneSLoadArM ♦/ 

EXECUTE PROCEDURE Consumer $Updat^Eoad?ct 

( Object = New. Object 

, Pfixed = New.Pfixed 

Pnom = New.Pnom 

Qfixed = New.Qfixed 
# Qnom = New.Qnom 

PfixedPct = New. PfixedPct 
, PnomPct = New.PnomPct 

QfixedPct = New.Qf ixedPct 
, QnomPct = New.QnomPct 
/ TopLoadArea = New.TcpLoadArea 

/ i 



Transformer components 

CREATE RULE Windings Insert 2 

AFTER INSERT ON Winding 

EXECUTE PROCEDURE Winding$Validate 

( Object = New. Object 

, Name = New. Name 

LoadTapChanger = New . LoadTapChanger 
Nominal KV = New.NominalKV 
NeutralKV = New.NeutralKV 
LowStep = New. Lows tep 
HighStep * New.HighStep 
NeutralStep = New. Neutral Step 

, StepSize = New. StepSize- 

CREATE RULE Winding$Update 

AFTER UPDATE ON Winding 

EXECUTE PROCEDURE Winding$Validate 

( Object = New. Object 

, Name « New -Name 

LoadTapChanger = New . LoadTapChanger 
NominalKV = New.NominalKV 
NeutralKV = New.NeutralKV 

, LowStep = New, LowStep 
HighStep = New.HighStep 
NeutralStep = New. Neutral Step 

J StepSize = New. StepSize 

CREATE RULE TapSetting$Insert2 
AFTER INSERT ON TapSetting 
EXECUTE PROCEDURE TapSettingSValidate 
( Object s New. Object 

Windingl = New.Windingl 
TapStepl = New. Taps tepl 
Winding2 = New.Winding2 
TapStep2 = New.TapStep2 
Windings = New.Winding3 
^ TapStep3 - New. Taps tep3 

CREATE RULE TapSetting$Update 
AFTER UPDATE ON TapSetting 
EXECUTE PROCEDURE TapSetting$Validate 
( Object = New. Object 
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, Windingl = New.Windingl 
TapStepl = New.TapStepl 

, Winding2 = New, Windings 
TapSt:ep2 = New.TapStep2 
Windings = New. Windings 
TapStep3 = New.TapStep3 

/' 

Specifications 

•/ 
/' 

Interactions 

CREATE RULE Terminals Insert 2 
AFTER INSERT ON Terminal 
EXECUTE PROCEDURE Terminals Validate 
( Tid = New.Tid 

Object = New. Object 

) ; 

CREATE RULE GrassCatcher$Insert2 
AFTER INSERT ON GrassCatcher 
EXECUTE PROCEDURE Gras sCat Cher $ Insert 

(Tid = New.Tid 

, Object = New. Object 

, Problem = New. Problem 

, Text = New • Text 

) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 
' contained on this media is proprietary to and 



frame and the name of any SItail tabirthiris'TecaSir^^ 



*/ 

INSERT 



INSERT INTO 
INSERT INTO 
INSERT INTO 
INSERT INTO 



INTO BaseType 
VALUES 
BaseType 
VALUES 

Baseiype 

VALUES 
BaseType 
VALUES 
BaseType 
VALUES 
INSERT INTO Baseiyp© 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaselVpe 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO BaseTVpe 
VALUES 

INSERT INTO BaseType 
VALUES 

INSERT INTO 



(Type, EditorName, TableName) 

{Type, EditorName, TableName) 
(02, 'ObjectGeneric' , ''); 
(Type, EditorName, TableName) 
(18, 'ObjectGeneric , ''); 
(Type, EditorName, TableName) 
(19, 'Conductor', 'Conductor'); 
(lype, EditorName, TableName) 
( 20 , ' Genera t or ' , ' Gener a t or ' ) ; 
(Type, EditorName, TableName) 
(21, 'Consumer', ' Consxaiier ' ) ; 
(lype, EditorName, TableName) 
( 22 , ' Conductor ' , ' Conductor ' ) ; 
(Tj^e, EditorName, TableName) 
(23, 'Conductor', 'Conductor'); 
(Type, EditorName, TableName) 
(24, 'Capacitor' , 'Capacitor' ) ; 
(Type, EditorName, TableName) 
£25, 'Reactor', 'Reactor'); 
(Type, EditorName, TableName) 
(26, 'Switch', 'Switch'); 
Type, EditorName, TableName) 
(27, 'Transformer', 'Transformer' 
(Type, EditorName, TableName) 
(31, 'BreakerSensor' , ''); 
(Type, EditorName, TableName) 
(35, 'Telemetry', 'Telemetry'); 
(Type, EditorName, TableName) 
(43, ' TowerType ' , ' TowerType ' ) ; 
(Type, EditorName, TableName) 



) ;/* 



/* 



INSERT INTO 
INSERT INTO 
INSERT INTO 



BaseType 
VALUES 
Baseiype 
VALUES 
BaseType 
VALUES 
BaseType 



Type$Object *7 
TypeSOrganization 
TypeSGround */ 
Type$Busbar ♦/ 
TypeSGenerator */ 
Type$Consumer •/ 
Type$ACLineSegment ' 
Types Jumper */ 
TypeSCapacitor ♦/ 
TypeSReactor */ 
TypeSSwitch */ 
Type$Trans former * • 
TypeSRelay */ 
Type$Telemetry •/ 
TypeSToweriype •/ 

Type SConduc c c r T-. 



(44, 'Conductoriype' , 'ConductorType ' ) ; 
(Type, EditorName, TableName) 

(45, 'ObjectGeneric , ''); /» ivneSRari nrrTTarr,^- i,, 

(Type, EditorName, T^bleNMe) ' TypeSRatingFamily 

(46, 'ObjectGeneric, ' ' )'; /♦ TvT>eSLoadFP»m-i i-/ • 

(Type, EditorName, TableName) lYPeSLoadFamily 

(47, 'ObjectGeneric, "); /* TypeSDrawino */ 

(Type, EditorName, TableName) iype;.urawing / 
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VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


Baseiype 
VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


BaseType 
VALUES 


INSERT 


INTO 


Baseiype 
VALUES 


/♦ 
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(48, 'ObjectGeneriC . "); 
(Type, EditorName, TableName) 
(49, 'ObjectGeneriC , ''); 
(Type, EditorName, TableName) 
( 50 , ' Ob j ectGeneric ' , * ' ) ; 
(Type, EdicorName, TableName) 
(59, 'Conductor', 'Conductor') 
(Type, EditorName, TableName) 
(60, 'Switch', 'Switch'); 
(Type, EditorName r TableName) 
(61, 'Switch', 'Switch'); 
(Type, EditorName, TableName) 
(62, 'Switch', 'Switch'); 
(Type, EditorName, TableName) 
(63. 'Computer', 'Computer'); 
(lype, EditorName, TableName) 
(90, 'Person', 'Person'); 



/• TypeSManuf acturer ' 

/♦ TypeSSeason »/ 

/* TypeSDayType */ 

/♦ lypeSDCLineSegment 

/* iype$Brea)cer */ 

/* lypeSDisconnect •/ 

/♦ lypeSFuse •/ 

/* TypeSComputer */ 

/* Types Person •/ 



The following statements define the system types. Any entry added to the 
type table must be duplicated with an enczy of a constant m the 
PowerSystemModel application with the name "TypeSxxxx" and the integer 
value set to the value defined here. 

The type table contains the type, the base type and the type name for 
each type. The type must be unique; the name should be unique but this 
is not enforced. A base type of 0 implies that the type is for 
classification only: an object of that type cannot be created or edited. 
If the base type is non-zero the type of the object can be freely changed 
amongst others which are subtypes of the base type. Note that it is " 
possible to create a heirarchy of types that can only be descended. 



New entries must be added at the end of the list, wi 
type number. For each new entry in the type table, i 
must be defined in the supertype table. These defini 
after the type table definitions. 



th the next highest 
ts immediate supertype 
tions are grouped 



INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type. 

INSERT INTO Type (Type. 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type. 

INSERT INTO Type (Type, 

INSERT INTO Type (Type. 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 

INSERT INTO Type (Type, 



Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 



BaseType, 
BaseType, 
BaseType, 

BaseType* 
BaseType, 
BaseType, 
BaseType, 
BaseTVpe, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType , Name ) 
BaseTVpe , Name ) 
BaseType, 
BaseType, 
BaseType, 
BaseType, 

BaseType^ 
BaseType, 
BaseType, 
BaseType, 
BaseTVpe, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseTVpe, 
BaseType , 



VALUES (00, 01. 

VALUES (01, 01, 

VALUES (02, 02, 

VALUES (03, 02, 

VALUES (04, 02, 

VALUES (05, 02, 

VALUES (06, 02, 

VALUES (07, 02, 

VALUES (08, 02, 

VALUES (09, 63, 

VALUES (10, 02, 

VALUES (11, 02, 

VALUES (12, 02, 

VALUES (13, 02, 

VALUES (14, 01, 

VALUES (15, 00, 

VALUES (16, 01. 

VALUES (17, 01, 

VALUES (18, 18, 

VALUES (19, 19, 

VALUES (20, 20, 

VALUES (21, 21, 

Name) VALUES (22, 22, 

Name) VALUES (23, 23, 

VALUES (24, 24, 

VALUES (25, 25, 

VALUES (26, 26, 

VALUES (27, 27, 

VALUES (28, 27, 

VALUES (29, 27, 



Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 



Name) 
Name) 
Name) 
Name) 
Name) 
Name) 



"); 

'Object ' ) ; 

'Organization' ) ; 

' Company ' ) ; 

'Division' ) ; 

' Substation' ) ; 

' Bay ' ) ; 

' System' ) ; 

' Spares ' ) ; 

'RTU' ) ; 

' Line ' ) ; 

'Circuit' ) ; 

' Trans formerBanJc' ) ; 

'CapacitorBank' ) ; 

' Equipment ' ) ; 

'Tenplate' ) ; 

' Support ' ) ; 

'Conducting' ) ; 

'Ground' ) ; 

' Busbar' ) ; 

'Generator' ) ; 

'Consumer' ) ; 

' ACLineSegment ' ) ; 

'Jumper' ) ; 

'Capacitor' ) ; 

'Reactor' ) ; 

'Switch' ) ; 

'Transformer' ) ; 

' PowerTrans former ' ) 

'PhaseShif ter' ) ; 
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INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
. INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
• INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
IVpe 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
IVpe 
Type 
lype 
Type 
Type 
Type 
Type 
Type 
Type 
IVpe 
Type 
Type 
Type 
Type 
IVpe 
Type 
lype 
lype 
Type 
Type 
Type 
Type 
Type 
lype 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
Type 
lype 
Type 
Type 
lype 
Type 
Type 



(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(^VPe. 
(Type, 
(lype, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(lype, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(lype, 
(lype, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 
(Type, 



BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType , 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 
BaseType, 



Name) 
Name) 
Name ) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Ncune) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
Name) 
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VALUES 
VALUES 
VALUES 
VALUES 
VALUES' 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 



(30, 
(31, 
(32. 
(33, 
(34, 
(35, 
(36, 
(37, 
(38, 
(39, 
<40, 
(41, 
(42, 
(43, 
(44, 
(45, 
(46, 
(47, 
(48, 
(49, 
(50, 
(51, 
(52, 
(53, 
(54, 
(55, 
(56, 
(57, 
(58, 
<59, 
(60, 
(61, 
(62, 
(63, 
(64, 
(65, 
(66, 
(67, 
(68, 
(69, 
(70, 
(71, 
(72, 
(73, 
(74, 
(75, 
(76, 
(77, 
(78, 
(79, 
(80, 
(81, 
(82, 
(83, 
(84, 
(85, 
(86, 
(87, 
(88, 
(89, 
(90, 
(91, 
(92, 



01, 
01, 
31, 
31, 
31, 
35, 
35, 
35, 
35, 
35, 
21, 
21, 
01, 
43, 
44, 
45, 
46, 
47, 
48, 
49, 
50, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
59, 
60, 
61, 
62, 
63, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
00, 
90, 
21, 
21, 



' Sensing ' ) ; 
'Relay } ; 
'VoltageRelay ' ) ; 
' FreguencyRelay ' ) ; 
'CurrentRelay ' ) ; 
'Telemetry' ) ; 
'Analog' ) ; 
'Digital' ) ; 
'Counter' ) ; 
'Control ' ) ; 
'Feeder'); 
' Load ' ) ; 

'Specification' ) ,- 
' TowerType ' ) ; 
'ConductorType' ) ; 
'RatingFamily ' ) ; 
'LoadFamily ' ) ; 
'Drawing' ) ; 
'Manufacturer' ) ; 
'Season' ) ; 
'DayType' ) ; 
'Interaction' ) ; 
'Member of ' ) ; 
'Rated as ' ) ; 
'Load modeled by ) ; 
' Shown on ' ) ; 
'Made by ) ; 
'Located with' ) ; 
'Conductor' ) ; 
' DCLineSegment ' ) ; 
'Brea)cer' ) ; 
'Disconnect' ) ; 
' Fuse ' ) ; 
'Coirputer ' ) ; 
'Measurement ' ) ; 
'Sensor' ) ; 
' Current ' ) 
'Voltage' ) ; 
' Frequency ' ) ; 
'Position' ) ; 
'In^ulse' ) ; 
'Contact') ; 
' Power ' ) ; 
'Measurer' ) ; 
'Telemetered' ) ; 
'Manual' ) ; 
'Calculated' ) ; 
'StateEstimated' ) ; 
'RemoteSystem' ) ; 
'External' ) ; 
'Measurand' ).; 
'Amps' ) ; 
'kV' ) ; 

'Hertz' ) ; 
'Setting' ) ; 
'Counts' ) ; 

'MW' ) ; 

'MVAr' ) ; 
'MVA'); 
'Status' ) ; 
' Person * ) ,- 
' LoadArea ' ) ; 
'Loss' ) ; 



n^LiiS^^lif heirarchy. The entries in this section must be 

ordered by supertype- within supertype to ensure that ?he 
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* ExtendedType tables gets set up correctly. There should be one 

entry for each Type defined above, and that Type's immediate 
SuperType must be defined. 

•/ 

INSERT INTO SuperType (SuperType, Type) VALUES (00, 01); 



INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 

INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 

INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 

SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 
INSERT INTO SuperType 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



INSERT INTO SuperType 
INSERT INTO SuperType 



SuperType, Type) VALUES (01, 02) 

SuperType, Type) VALUES (01, 14) 

SuperType, Type) VALUES (01, 42) 

SuperType, ^Type) VALUES (01, 51) 

SuperType, Type) VALUES (01, 64) 



SuperType, 
SuperType , 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType , 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperType, 

SuperType, 
SuperType, 
SuperType, 
SuperType, 
SuperrS^se, 
SuperType, 
SuperType , 
SuperType , 
SuperType , 
SuperType , 
SuperType, 
SuperType , 
SuperType , 

SuperType , 
SuperType , 

SuperType , 
SuperType , 
SuperType , 
SuperType , 
SuperType , 
SuperType , 
SuperType, 

SuperType , 

SuperType , 



Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 



VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 



Type) VALUES 

Type) VALUES 

Type) VALUES 

Type) VALUES 



Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 

Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 

Type) 
Type) 

Type) 
Type) 
Type) 
Type) 
Type) 
Type) 
Type) 



VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES* 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 

VALUES 
VALUES 

VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 



(02, 
(02, 
(02, 
(02, 
(02, 
(02, 
(02, 
(02, 
(02, 
(02, 
(02, 

(14, 
(14, 
(14, 
(14, 

(17, 
(17, 
(17, 
(17, 
(17, 
(17, 
(17, 
(17, 

(21, 
(21, 
(21, 
(21, 
(26, 
(26, 
(26, 
(27, 
(27, 
(58, 
(58, 
(58, 
(58, 



03) 
04) 
05) 
06) 
07) 
08) 
10) 
11) 
12) 
13) 
15) 

16) 
17) 
30) 
63) 

18) 
20) 
21) 
24) 
25) 
26) 
27) 
58) 

40) 
41) 
91) 
92) 
60) 
61) 
62) 
28) 
29) 
19) 
22) 
23) 
59) 



Type) VALUES 
Type) VALUES 



(30, 31); 

(30, 35); 

(31, 32) 

(31, 33) 

(31, 34) 

(35, 36) 

(35, 37) 

(35, 38) 

(35, 39) 

(63, 09); 

(42, 43); 
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INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
Super Type 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
Superiype 



INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
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(SuperType, Type) VALUES (42, 44); 

(SuperType, Type) VALUES (42, 45); 

(SuperType, Type) VALUES (42, 46); 

(SuperType, Type) VALUES (42, 47); 

(SuperType, Type) VALUES (42, 48); 

(SuperType, Type) VALUES (42, 49); 

(SuperType, Type) VALUES (42, 50); 

(SuperType. Type) VALUES (42, 90); 

(SuperType, Type) VALUES (51, 52); 

(SuperType, Type) VALUES (51, 53); 

(SuperType, Type) VALUES (51, 54); 

(SuperType, Type) values (51, 55); 

(SuperType, Type) VALUES (51, 56); 

( SuperType , Type ) VALUES (51,. 57 } ; 



iKSSSZ^ SuperType (SuperType, Type) VALUES (64, 65); 

SuperType (SuperType, Type) VALUES (64, 73); 

INSERT INTO SuperType (SuperType, Type) VALUES (64, 80); 

INTO SuperType (SuperType, Type) VALUES (65, 66); 

INTO SuperType (SuperType, Type) VALUES (65, 57); 

INTO SuperType (SuperType, Type) VALUES (65, 68); 

INTO SuperType (SuperType, Type) VALUES (65, 69); 

INTO SuperType (SuperType, Type) VALUES (65, 70); 

SuperType (SuperType, Type) VALUES (65, 71).; 

INTO SuperType (SuperType, Type) VALUES (65, 72); 

(SuperType, Type) VALUES (73, 74); 

(SuperType, Type) VALUES (73, 75); 

(SuperType, Type) VALUES (73, 76); 

(SuperType, Type) VALUES (73, 77); 

(SuperType, Type) VALUES (73, 78); 

(SuperType, Type) VALUES (73, 79); 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 

INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 
INTO SuperType 



INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 
INTO 



SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 
SuperType 



(SuperType, 
(SuperType, 
( SuperType » 
(SuperType, 
(SuperType, 
( SuperType , 
(SuperType, 
(SuperType, 
(SuperType* 



Type) 
Type) 
Type) 
lype) 
Type) 
Type) 
Type) 
Type) 
Type) 



VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUES. 



(80, 81); 

(80, 82); 

(80, 83); 

(80, 84); 

(80, 85); 

(80, 86); 

(80, 87); 

(80, 88); 

(80, 89); 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



* This file contains statements to set up all the system defined 

* nodes and objects. ^ 
*/ 

/* 

* First, set up the keys. System defined keys range in value from 

* 1-10,000; User defined keys range in value from 10,001 to 20,000. 

* Automatically generated keys (for things added in the general use 

* o£ the system) start at 20,001. 
*/ 

INSERT INTO LastKey 
(Last Key 
, value 

) 

VALUES 

( 'Object' 
,20000 
) ; 

INSERT INTO LastKey 
(LastKey 
, Value 
) 

VALUES 

( ' Node ' 
,20000 

) ; 

INSERT INTO LastK^ 
(LastKey 
, Value 
) 

VALUES 

( 'Type' 
,20000 
) ; 

INSERT INTO LastKey 
(LastKey 
, Value 
) 

VALUES 

( 'Curves ' 
,20000 
) ; 



* Objects that are created in this section must, have a primary key 

that is equal to the base type of the object. 

*/ 
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*^ Set up a "Null- object 

INSERT INTO Object 
(Object 

, SystemVersion 
/ Type 

, Terminals 
, Name 

, Description 
) 

VALUES 

(0 lypeSNull */ 

'2 Type$Mull ♦/ 

'0 /* TypeSNull ♦/ 

. 'Null object' 
); 

INSERT INTO Location ♦ 
(Object 

) 

VALUES 

/* lypeSNull ♦/ 



^ Create the top groupings that everything will belong to 



INSERT INTO Object 
(Object 
, SystemVersion 

, Terminals 
, Name 

, Description 

1. 
VALUES 

/* lypeSOrganization */ 
'0 /* TypeSNull •/ 

'2 /• lypeSOrganization */ 

, 'Organization' 

, 'Top level organization' 

) ; 

INSERT INTO Grouping 
(SystemVersion 
, Grouping 
t Member 
, Relationship 

VALUES 

<0 /♦ TypeSNull */ 

'0 /* TypeSNull */ 

'2 /♦ TypeSOrganization */ 

J 52 /♦ Type$Member_of */ 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
, Name 

, Description 
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) 

VALUES 

(42 /' TypeSSpecif ication •/ 

,0 . /» TypeSNull ♦/ 

,42 /♦ TypeSSpecif ication */ 

.0 

, 'Specification' 

, 'Top level specification' 

) ; 

INSERT INTO Grouping 
( Sy s t emVe r s i on 
, Grouping 
, Member 
, Relationship 
) 

VALUES 

(0 /♦ TypeSNull ♦/ 

,0 /* TypeSNull •/ 

,42 /♦ TypeSSpecif ication ♦/ 

,52 /♦ TypeSMember^of */ 

) ; 

/* 

Set up a single terminal ground for the entire system. 

*/ 

INSERT INTO Object 
(Object 

, SystemVersion 
/Type 

, Terminals 
,Name 

, Description 
, InService 
) 

VALUES 

(18 /♦ TypeSGround */ 

,0 /* TypeSNull */ 

,18 /♦ lypeSGround */ 

,1 

, 'Ground' 

, 'Single terminal ground for entire system' 
, 'l-Jan-1900' 

) ; 

UPDATE Terminal T 

SET Node =18 /• TypeSGround ♦/ 

WHERE T. Object =18; /♦ lypeSGround */ 

INSERT INTO Grouping 
( SystemVersion 
, Grouping 
« Member 
, Relationship 
) 

VALUES 

(0 /* TypeSNull ♦/ 

,42 /* TypeSSpecif ication */ 

,18 /* TypeSGround ♦/ 

,52 /* Type$Member_of */ 

) ; 

/* 

* Create the template object for each base type with a key of 

BaseType 5000. 

•/ 

INSERT INTO Object 
(Object 
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, SystemVersion 
. Type 

, Terminals 
, Naine 

) 

VALUES 

(02 5000 /* TypeSOrganization */ 

'0 /* TypeSNull */ 

'9^ /* TypeSOrganization •/ 

, 0 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
'Type 

, Terminals 

, Name 

) 

VALUES 

(19 + 5000 /* TypeSBusbar */ 
'0 /* TypeSNull */ 

'19 /* TypeSBusbar */ 

, 'Teir^late' 
> ; 

INSERT INTO Object 
(Object 

, SystemVersion 
'Type 

, Terminals 

, Name 

) 

VALUES 

(20 5000 /* TypeSGenerator */ 
rO /♦ 1Vpe$Null */ 

;20 /♦ Type$Generator */ 

'» 1 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
'Type 

, Terminals 
. Name 

) 

VALUES 

(21 + 5000 /* TypeSConsumer */ 
.0 /* TypeSNull ♦/ 

/21 /• TypeSConsumer */ 

, 'Template' 



INSERT INTO Object 
(Object 

f SystemVersion 
. Type 

, Terminals 

, Name 

) 

VALUES 
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(22 + 5000 /♦ Types ACLineSegmenc */ 
,0 /* TypeSNuil */ 

*22 /* TypeSACLineSegmenc •/ 

, 2 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 
,Naxne 

) 

VALUES 

(23 + 5000 /* TypeSJumper */ 
,0 /• TVpeSNull */ 

,23 /• TypeSJumper */ 

! 'Ten^late' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(24 + 5000 /♦ Type$Capacitor */ 
,0 /♦ TypeSNuil */ 

,24 /* 1Vpe$Capacitor */ 

# 2 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
/Type 

, Terminals 
, Name 

) 

VALUES 

(25 + 5000 /* TypeSReactor */ 
,0 /♦ TypeSNuil •/ 

,25 /* *iype$Reactor */ 

,2 

, 'Template' 
); 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 
,Name 

) 

VALUES 

(26 + 5000 /♦ lypeSSwitch */ 
,0 /• TypeSNuil */ 

,26 /* iype$Switch ♦/ 

, 'Template' 
) ; 
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INSERT INTO Object 
(Object 

, SystemVersion 

. type 

, Terminals 
, Name 

) 

VALUES 

(27 + 5000 /* Type$Trans former ♦/ 
*0 /* TypeSNulI •/ 

'27 /• Type$Transformer •/ 

» 0 

» 'Ten^late' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
'Type 

, Terminals 
,Name 

) 

VALUES 

(31 + 5000 /♦ Type$BreakerSensor */ 
'0 /♦ TypeSNulI */ 

/* iype$BreakerSensor */ 

, 'Template' ^ 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 

,Name 

) 

VALUES 

(35 + 5000 /* lypeSTelemetry */ 

'0 /* TypeSNulI */ 

'35 /* lypeSTelemetry */ 

, 'Template' 

) ; 

INSERT INTO Object 
(Obj ect 

, SystemVersion 
.Type 

, Terminals 
,Name 

) 

VALUES 

(43 + 5000 /* TypeSTowerType */ 

'0 /♦ TypeSNulI •/ 

'43 /• TypeSTowerType •/ 

, 'Template' 



INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

t Terminals 
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, Name 



VALUES 

(44 + 5000 /* TypeSConduccorType */ 



. 0 

, 'Ten^lace' 

> ; 

INSERT INTO Object 
(Object 

, SystemVersion 

. Terminals 
, Name 

) 

VALUES 

(45 + 5000 /♦ TypeSRatingFamily */ 

,0 /* lypeSNull •/ 

,45 /♦ TypeSRatingFamily */ 

,0 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

t Terminals 
, Name 

) 

VALUES 

(46 + 5000 /* TypeSLoadFamily */ 

.0 /* TypeSNull */ 

,46 /* lypeSLoadFamily */ 

,0 

, 'Template' 



- INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(47 5000 /* lypeSDrawing */ 
,0 /* TypeSNull •/ 

,47 /* TypeSDrawing */ 

,0 

, 'Tenplate' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

,Name 

) 

VALUES 

(48 + 5000 /• TypeSManuf acturer */ 



,0 
,44 



TypeSNull •/ 
lypeSConductorType */ 



,0 
.48 



TypeSNull ♦/ 
TypeSManuf acturer */ 
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.0 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
. Type 

, Terminals 

, Name 

) 

VALUES 

(49 + 5000 /« Type$Season •/ 

^* TypeSNull •/ 
'^^ /* TypeSSeason */ 

, 'Tenplate' 

) s 

INSERT itrro Object 
(Object 

, SystemVersion 
'Type 

, Terminals 

,Name 

) 

VALUES 

(50 + 5000 /* iype$DayType ♦/ 
'0 /* lypeSNull */ 

'^0 /• Type$DayType */ 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
*Type 

, Terminals 
,Name 

) 

VALUES 

(59 + 5000 /* lypeSDCLineSegment */ 

'co ^* lypeSNull •/ 

'^^ iype$DCLineSegment ^/ 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
'Type 

, Terminals 
, Name 

) 

VALUES 

(60 + 5000 /* TypeSBreaker */ 
'0 /* TypeSNull */ 

'5^ /* TypeSBreaker •/ 

* 'Template' 

) ; 

INSERT INTO Object 
(Object 
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, SystemVersion 
.Type 

, Terminals 

, Name 

) 

VALUES 

(61 + 5000 /* Types Disconnect ♦/ 

,0 /* TypeSNuil •/ 

,61 /* Type$Disconnect */ 

.2 

, 'Template' 



INSERT INTO Object 
(Object 

, SystemVersion 
,Type 

, Terminals 

,Name 

> 

VALUES 

(62 + 5000 /* Type$Fuse ♦/ 



,2 

, 'Template' 

) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
*Type 

, Terminals 

, Name 

) 

VALUES 

(63 + 5000 /• Type$Coit^uter •/ 
,0 /* TypeSNull */ 

,63 /* TypeSComputer */ 

,0 

, 'Template' 
) ; 

INSERT INTO Object 
(Object 

, SystemVersion 
.Type 

, Terminals 

, Name 

) 

VALUES 

(90 + 5000 /♦ TypeSPerson */ 
,0 /* TypeSNull •/ 

,90 /* iype$Person */ 

, 0 

, 'Template' 



,0 
,62 



/* TypeSNull */ 
/* TypeSFuse */ 



) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by th« 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



*^ Parameters relating to the system being modelled are defined here, 

INSERT INTO SystemParameters 
(Frequency 
,MVABase 
, KVRef erence 
, LengthRatio 
, GroundResistivity 
, Temperature 
) 

VALUES 
(60 
, 100 
, 1 

,1000 
, 100 
, 'C 
) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



* The following 

* recognised in 
*/ 

INSERT INTO Problem (Problem, 

VALUES { 'Object_001 ' , 'E' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_002 ' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_003' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_004' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_005' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_006 ' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_007' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object„008' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_009' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object^OlO' , 'F' 
INSERT INTO Problem (Problem, 

VALUES ('Objection', 'F' 
INSERT INTO Problem (Problem, 

VALUES ( ' Ob j ect„0 12 ' , ' F ' 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_013 ' , ", 
INSERT INTO Problem (Problem, 

VALUES ( ' Ob j ect_0 14 ' , " , 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_015 ' , " , 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_016' , '', 
INSERT INTO Problem (Problem, 

VALUES ( ' Ob j ect_0 17 ' , " , 
INSERT INTO Problem (Problem, 
VALUES. ( 'Object_018 ' , " , 
INSERT INTO Problem (Problem, 
VALUES ( 'Object_019' , '', 
INSERT INTO Problem (Problem, 

VALUES ( 'Object_020' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacitor_001 ' , ' 
INSERT INTO Problem (Problem, 



statements define the problem descriptions that 
the Power System Data Model 



are 



Severity, Description) 
, 'In Service must precede Out of Service'); 

Severity, Description) 
, 'There is equipment at this voltage'); 

Severity, Description) 
, 'This device has no more terminals'); 
Severity, Description) 
, 'Group object does not exist'); 
Sever i ty , Description ) 

'Member object does not exist'); 
Severity, Description) 

'Delete not permitted'); 
Severity , Description ) 

'Base type of an object may not be changed'); 
Severity, Description) 

'Please select a terminal to connect to'); 
Severity , Description ) 

'Please select a terminal to be connected'); 
Sever i ty , Des cr ip t ion ) 

'Please select a terminal to remove'); 
Severity, Description) 

'There is already a relationship with this obje 
Severity, Description) 

may not be created') ; 



'Objects 
Severity, 
" ) ; 



of this type 
Description) 



Severity , Descrip t ion ) 



) 

Severity, 
" ) ; 

Severity, 
" ) ; 

Severity, 
" ) ; 

Severity, Description) 
" ) ; 

Severity , Description ) 

" ) ; 

Severity, Description) 



Description) 
Description) 
Description) 



) 

Severity, 
' * ' 1 • 

Severity, 



Description) 
Description) 
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) 



Severi ty, 
' ' , " ) ; 
Severity, 
" , " ) ; 
Severity, 



) 

Severity, 

Severity, 

» It 
Severity, 

Severity, 
'W, 'X/R 
Severity, 
) 



) 



VALUES ( 'Capacitor_002 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacicor_003 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacitor_004 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacitor_00 5 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacitor_00 6' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Capacitor_007 ' , 
INSERT INTO Problem (Problem, 

VALUES { ' Capacitor_008 ' , 
INSERT INTO Problem (Problem, 

VALUES ( ' Capaci tor_0 09', 
INSERT INTO Problem (Problem, 

VALUES ( ' Capaci tor_0 10 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Conductor.OOl ' , 
INSERT INTO Problem (Problem, 

VALUES { 'Conductor 002 ' , 
INSERT INTO Problem (Problem, 
VALUES ('Conductor 003', ' 
INSERT INTO Problem (Problem, 

VALUES { ' Conductor_004 ' , ' 
INSERT INTO Problem (Problem, Severity, 

VALUES ('Conductor 005', 
INSERT INTO Problem (Problem, 

VALUES ( ' Conductor 006', 
INSERT INTO Problem (Problem, 

VALUES ( ' Conductor_0 07 ' , 
INSERT INTO Problem (Problem, Severity. 

VALUES ( ' Conductor^O 08', 
INSERT INTO Problem (Problem, 

VALUES ( ' Conductor_009 ' , 
INSERT INTO Problem (Problem, 

VALUES ( ' Conductor_010 ' , 
INSERT INTO Problem (Problem, 
VALUES ( ' Consximer.O 01', ' 
INSERT INTO Problem (Problem, 
VALUES ( ' Consumer_0 02 ', ' 
INSERT INTO Problem (Problem, 
VALUES ( ' Consumer_0 03', ' 
INSERT INTO Problem (Problem, 

VALUES ( 'Consumer_004 ' , '' 
INSERT INTO Problem (Problem, 

VALUES ( ' Consumer_005 ' , " , " ) 
INSERT INTO Problem (Problem, Severity, 

VALUES ( 'ConstJBner_006 ' , " , " ) • 
INSERT INTO Problem (Problem, Severity, 

VALUES ( 'Consumer 007 ' , " , ' ' ) . 
INSERT INTO Problem (Problem, Severity, 

VALUES ( 'Consumer_008 ' , " , " ) ^ 
INSERT INTO Problem (Problem, 
VALUES ( 'Consumer_009 ' , ' 
INSERT INTO Problem (Problem, 
VALUES ( 'Consumer_010 ' , ' 
INSERT INTO Problem (Problem, 

VALUES ( ' Genera tor_0 01 ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'Generator_002 ' , 
INSERT INTO Problem (Problem, 
VALUES ( 'Generator_003 ' , . 
INSERT INTO Problem (Problem, 

VALUES ( 'Genera tor_0 04 ' , 
INSERT INTO Problem (Problem, 
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Severity , Description ) 
t * ) * 

Severity, Description) 



Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 
ratio is low') 
Description) 



Severity , Description ) 
t It 

Severity, Description) 



Severity, 

/ It 
Severity, 

■ ' ) 



Severity, 
) 



Description) 
Description) 
Description) 
Description) 

Description) 



Severi ty , Description ) 

' / * * ) 7 

Severi ty , Description ) 



) 

Severity, 

r ' ' \ . 

t I » 

Severity, 

"); 
Severity, 
* 1 1 

Severity, Description) 



Description) 
Description) 
Description) 



Description) 
Description) 
Description) 



Severity, Description) 

Severity, Description) 

Severity, Description) 
'#'')• 

Severity, Description) 
'#'*)• 

Severity, Description) 

Severity, Description) 

* ■ ) 



Severi ty , Des cr ip t ion ) 
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VALUES ( 'Generator.OOS ' , ' ' , ' ' ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES { 'Generator_006 ' , ' ' , ' ' ) ; 
INSERT INTO Problem (Problem. Severity, Description) 

VALUES ( 'Generator_007 ' , ''); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Generator_008' , ''); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Genera tor_0 09 ' , ' ' , ' ' ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Genera tor_0 10 ' , " . " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor_C01' , '',''); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Reactor_002 ' , ' ' , " } ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor_003 ' , ' ' , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor.004 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor_005 ' , ' ' , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor_006' , '',"); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Reactor.O 07 ' , ' ' , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Reactor.OOe ' , ' ' , ' ' ) ,- 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Reactor_009 ' , ' ' , ") : 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Reactor_010 ' , ' ' , " > ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_001 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES { ' Switch_002 ',",''); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_003 ' , " , ' ' ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_004 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_005 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_006 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_007 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Switch.008' ,","); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_009 ' , " , " ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( ' Switch_010 ' , ' ' , ' ' ) ; 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Trans former_0 01 ' , 'W , 'Nominal kV is out of range of the taps' 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Transforraer_002 ' , 'W , 'Step Size is greater than 10%'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Transformer_003 ' , 'E', 'Load tap changer must be "Yes" or "Nc" ' 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES { 'Trans former_004' , 'E', 'Low Step must be <= High Step'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Transformer_005 ' , 'E', 'Neutral Step xmast be >= low step'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Transformer_006 ' , 'E', 'Neutral step must be <= high step'); 
INSERT INTO Problem (Problem, Severity, Description) 

VALUES ( 'Trans former_0 07 ' , 'E', 'Step size must be non-zero'); 
INSERT INTO Problem (Problem, Severity, Description) 
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Severity, 



) , 

Severity, 
Severity, 



VALVES ('Transformer 008' 
INSERT INTO Problem (Probleir., 
VALUES ('Transformer 009' 
INSERT INTO Problem (Problem, 
•r..r.J^^^^^^ ('Transformer 010' 
INSERT INTO Problem (Problem, 
VALUES ('Transformer Oil' 
INSERT INTO Problem (Problem 
^^.^ VALUES ('Transformer 012' 
INSERT INTO Problem (Problem, 
^.,^«Yit^U2S ( ' Trans f ormer_013 ' 
INSnRT INTO Problem (Problem, 
x.To™^^^^ ( 'Transformer_014' 
INSERT INTO Problem (Problem, 
VALUES ('Transformer 015' 
INSERT INTO Problem (Problem, 
T.,r.^Y^^^^ ( 'Transformer_016' , 
INSERT INTO Problem (Problem, 
('Transformer 017' 
INSERT INTO Problem (Problem, 
x*T«^~^^^^ ^ ' "Trans f ormer_0 1 8 ' 
INSERT INTO Problem (Problem, 
T.T=:^«^H^^ ^ ' Trans former_0 19 ' 
INSERT INTO Problem (Problem, 
VALUES ('Transformer 020' 

^^^^^r?T?TSP,^^°^^^^ (Problem, Severity,' 
VALUES ('Telemetry 001'/" '^T,' 

^^^vLSSF^rfS^^'^^ (Problem, s4verity, 

VALUES ('Telemetry 002' 
INSERT INTO Problem (Problem, 

VALUES ( 'Telemetry 003 ' , 
INSERT INTO Problem (Problem, 

VALUES ('Telemetry 004', 
INSERT INTO Problem (Problem, 

VALUES ('Telemetry 005' 
INSERT INTO Problem (Problem, 

VALUES ('Telemetry 006', 
INSERT INTO Problem (PFobleiii, 

VALUES ('Telemetry 007' 
INSERT INTO Problem (Problem, 

VALUES ('Telemetry 008', 
INSERT INTO Problem (Problem, 
^„ VALUES ('Telemetry 009', 
INSERT INTO Problem (Problem, 

VALUES ( ' Telemetry^OlO ' , 
INSERT INTO Problem (Problem, 

VALUES ( 'ConductorlVPe 001 , • - - j 
INSERT INTO Problem (Problim, s4veritv 
T.Tr^Y^^^^ (' Conduct orivpe 002'?^^^^') 
INSERT INTO Problem (Problim, s4verity. 
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,'F', 'Windings must belong zo 

Severity, Description) 
, 'E', 'Tap Setting winding does 

Seven ty , Descr ipt ion ) 
, 'E', 'Tap Setting tap step is out of ranee' 
Severity, Description) range 

's;^eri;j!^Dll^^i^S?i^^;^^'^^^ ' 2 

s;veri;j?^Dllcrip?i^^?^'^^^ "^^^ 

se^eri;j^^^fs^yfo;?r ^^-^^^-^ 

Severitjf^oll^^i^ii 

'F', 'Winding is referenced by a Tan ^f^rrinr-. 
Severity, Description) ^ setting 

'F', 'There are Tap Settings defined')- 
Severity, Description) uetinea j. 



transf crrr.ers ' 
net exiSw ' ; ; 



must be see 



once or. 



windi 
expe 



) 



Severity, 
" / ' ' ) ; 

Severity, 
" , " ) ; 

Severity, 
" , " ) ; 

Severity, 
" . " ) ; 

Severity, 
' ' , ' ' ) • 

Severity, 

Severity, 
* * » ' ^ . 

Severity, 
Severity, 



VALUES ( ' ConductorTVpe.OOB ' 



INSERT INTO 

VALUES 
INSERT INTO 



Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 

Description) 



Problem (Problem,' Severity, Description) 
' Conduct orType_0 04 ' , ; ^ /^^^-^-^-Ption; 

Problem (Problem, Severity, Description) 



') 



Description) 



VALUES ( 'ConductorType 005 , 
^^^^^r?r^SPr^"*=*^^ (Problim, Severity, 
-rxre.™^^^^ ( ' ConductotType 006', '' 

INSERT INTO Problem (Prbblim, s4veritv ' Descrin^ ^ or, \ 
^VALUES CConductortVpe 007 -f^^"^' , ^^^^''^^"''^ 

vlLt'r^i^.f^^'^i^"^ (Problim, s4verity. Description) 
n-^.^J^^^^^ ('ConductorType 008' '' '')- t'l-Awn/ 

vLS^M?^'^^^^ (Problim, Severity, ^Description) 
VALUES ( 'ConduccorlVpe 009' '' '•)• " -^^^^1 

INSERT INTO Problem (Problem, Severitv Descrinriom 
VALUES ( 'ConductorType OIO '7 '"''') . 

INSERT INTO Problem (PrpblSn, s4vericy. Description) 
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VALUES ( ' Toweriype.O 01'. 
INSERT INTO Problem (Problem, 

VALUES ( ' Towe rType_0 02', 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType_003 ' , 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType_0 04 ' . 
INSERT INTO Problem (Problem, 

VALUES { • Towe rType_0 05', 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType_0 06'. 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType_007 ' , 
INSERT INTO Problem (Problem, 

VALUES ( ' Towe rType_0 08'. 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType_0 09'. 
INSERT INTO Problem (Problem, 

VALUES ( ' TowerType.OlO ' , 
INSERT INTO Problem (Problem, 

VALUES ("lVpe_001', 'F', 
INSERT INTO Problem (Problem, 

VALUES ('Type_002', 'F', 
INSERT INTO Problem (Problem, 

VALUES ('Type_003', 'F', 
INSERT INTO Problem (Problem, 

VALUES ( ' Type_004 ' , ' F ' , 
INSERT INTO Problem (Problem, 

VALUES ('Type_005', 'F', 
INSERT INTO Problem (Problem, 

VALUES ('TVpe_006', 'F', 
INSERT INTO Problem (Problem, 

VALUES ('Type_007', 'F', 
INSERT INTO Problem (Problem. 

VALUES ('Type_008', '', ' 
INSERT INTO Problem (Problem, 

VALUES ( "IVpe_009 ' , ' ' , ' 
INSERT INTO Problem (Problem, 

VALUES ("lype.OlO', ' 
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' , " ) ; 

Severity, Description) 
' , " ) ; 

Severity, Description) 
♦ * # \ . 
/ / / 

Severity, Description) 
' . ' ' ) ; 

Severity , Descript ion ) 
' , " ) ; 

Severity, Description) 

9 * * \ . 

* it 

Severity, 
' . " ) ; 
Severity, 
) 



Description) 
Description) 



Severity, Description) 

* # # \ . 

9 1 9 

Severity, Description) 

* * ♦ \ • 

Severity^ Description) 

Type is in use as a super-type'); 

Severity, Description) 

There are objects of this type ' ) ; 

Severity, Description) 

Type is system defined and cannot be deleted' ) 

Severity, Description) ' 

Sub-type does not exist'); 

Severity, Description) 

Super-type does not exist'); 

Severity, Description) 

No editor defined for this type of object ' ) ; 

Severity, Description) 

A type of that name already exists'); 

Severity, Description) 

) ; 

Severity, Description) 
) ; 

Severity, Description) 
) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. unaer cne 

The software contained on this media is propriecarv to and 
embodies the confidential technology of Unified I^ormation 

use duplication or di^emination of thi software '" 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure bv t>>e 
e-w- Government IS subject to restrictions as set forth in 
|ubparagraph^,c,^,l,^ii) of DFARS 252.227-7013, orTnVp^ 

DROP PROCEDURE kVLevel$ Propagate; 
CREATE PROCEDURE kVLevelS Propagate 

DECLARE 

i INTEGER NOT NULL; 

l-ooip INTEGER NOT NULL; 

r.,=.^^JJ^^^®^^^^°^S INTEGER NOT NULL; 

BEGIN 

DELETE FROM TEMP $ Terminal List ; 
DELETE FROM TEMP$Obj ectList ; 
DELETE FROM TEMP$AuditTrail ; 

l^^'Ltolrl^Vdll ^L%^SS^^Sa^rb^In™^?^^L^^d?^^ ^ 

INSERT INTO TEMP$TerminalList 

SELECT * 

FROM Terminal 

WHERE BaselVpe = 27; /* Type $ Trans former */ 

INSERT INTO TEMP $ Audit Trail 
SELECT Object 
^ ^ FROM TEMPSTerminalList ; 

wSe^'thef irl foSnd^"' ^"^^^^^^^ ^" their terminal kV levels up 

Loop = 1; 

Maxlterations = 40; 

WHILE Loop <= Maxlterations DO 
message loop 'Loops'; 

ffErP*^ "iJ^^^^^^V temps terminalList; 

message i 'Terminals'; 

* ?2^?r.i^'^? '^5 objects connected to the terminals in the 

^^T^^^fl propagating the voltage from the terminal list Fo-ce 

the voltage propagated to be that of the highest voltage te^inal 

been"If l^wit"^ grounded) . Note that transformers ha?I al^ady 



DELETE FROM TEMPSObj ectList j 
INSERT INTO TEMP$Obj ectList 

(Object 

, kVLevel 

) 



3DOCIO: <WO_94060B7A1.L> 



wo 94/06087 



PCr/US93/08233 



95 

SELECT 

T. Object , 
MAX(TL.kVLevel) 
FROM Terminal T, 

TEMPSTerminalList TL 
WHERE TL.Node = T.Node AND /♦ same node */ 

TL. Object != T. Object /♦ different object */ 

GROUP BY T. Objects- 
message iirowcounc 'Objects'; 

/* 

* Discard any that have already been visited, set the voltage levels 

* for all the terminals of those that remain, and add them to the 

* audit trail 
♦/ 

DELETE FROM TEMPSOb jectList OL 

WHERE OL. Object = (SELECT Object FROM TEMPSAuditTrail) ; 
message iirowcount 'Revisited'; 

UPDATE Terminal T 

FROM TEMPSOb jectList OL 

SET kVLevel = OL.kVLevel 

WHERE T. Object = OL. Object AND /♦ object in object list 

T.Node >= 10000; /* not a system node */ 

message iirowcount 'Updated'; 

INSERT INTO TEMP$ Audit Trail 
SELECT Object 
FROM TEMPSObjectList; 
message iirowcount 'Audited'; 

* Find all the other terminals for these objects 
*/ 

DELETE FROM TEMPSTerminalList ; 
INSERT INTO TEMP$TerminalList 
SELECT T.* 
FROM Terminal T, 

TEMP$ObjectList OL 
WHERE OL. Object = T. Object AND /* same object */ 

T.Node >= 10000; /* not a system node »/ 

IF IIRowCount = 0 THEN 

ENDLOOP; 
ENDIF; 

Loop = Loop -^ 1; 
ENDWHILE; 

/* 

create table objectlist as 
select object 
from object 
where basetype != 27 and 
terminals > 1; 

select ol . ob j ect 
from objectlist ol, 

terminal tl, 

terminal t2 

where ol. object = TEMPSobj ect list .object and 
ol. object = t2. object and 
tl. terminal != t2. terminal and 
tl.node >= 10000 and 
t2.node >= 10000 and 
tl.kvlevel I= t2.kvlevel; 

»/ 

END; 
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Copyright 1991, 1992 by Unified Information, Inc 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. unuer cne 

The software contained on this media is proprietary to and 
pJ^2f«!f^^^^ confidential technology of Unified Information, inc. 
rS^^^^'^'^'^^ use, duplication or dissemination of the software 
?rom nnt?^i^ authorized only pursuant to a valid written license 
from Unx fled Information, Inc. 

s^j5r.jr.ph^,c,^U,^ai, ot frMS 252.227-7013. or i„ F« 

INSERT INTO Object (Object, Type. Name) 

.TBrx.JiJ^H^^^*"^' 'Waxwing'); 
UPDATE ConductorType SET 

f,2S«l'^^"S?=°-2^^' Radius=0.008. GMR=0.006, An?)acity=440. 000 
INSE^'^?^ Td^jll^TV^^r'NlSIT '""''"^ where. lastkey='Object'); 

VALUES (-1. 44, 'Partridge') 
UPDATE Conductoriype SET 

,|afi"s=0-008, GMR=0.007. Ainpacity=440 . 000 
INSE^"^?^ ^tird 7oi^jlct?'T^^?%Sl? '"^^^^ lastkey=. Object',;- 

VALUES (-1, 44. 'MerliA'); 
UPDATE Conduct orType SET 

,^3?i"s=0-009' GMR=0.141, An5)acity=500 . 000 
INSE^^O ^^lUl To^K^lf^T^ir^NSilT '""'"^ ^^"^ r.3t)cey=. Object',.. 

VALUES (-1, 44, 'Linnet',; 
UPDATE Conductoriype SET • ■ - 

SSlHr^^OKTHA^-®''' R^fi"s=0.009. GMR=0.137. Ainpacity=510 . 000 
INSE^'f^ ^tltcl ToA?l^?"i^i%ST '""^^^ "'^^'^^ lastkey='Object',; 

VALUES (-1, 44, 'Ibis'); 
UPDATE ConductorType SET 

^^istance=0.159, Radius=0.010. GMR=0.134, Anipacity=570 . 000 
INSE^'?^ ^tnr^ To,^jI«"a^i%£2r '""''"^ lastkey^'Object',; 

VALUES (-1. 44. ' Pelican 'TT 
UPDATE ConductorType SET 

S^fpI''*"ok7£;.2:^^' ,?*?^"*=°-?^°'^°^=°-134, Ainpacity=625.000 
INSE^'?^ ^tird TobjSriV^irNlSI" '""'"^ where.lastkey=. Object',; 

VALUES (-1. 44. 'Flicker',! 
UPDATE ConductorType SET 

Resistance=0.133. Radius=0 . Oil, GMR=0.132, Aiipacity=635 000 

IUSe"^^^ g^3'Ict Toi^jlct?'l^^rNf;^°T '^"'^"^ ^"^^^ lastkey^'Object'); 
VALUES (-1, 44, 'Hawk'); 

UPDATE ConductorType SET 

fm^ol^^^Sw^^*-^-^^' Radiuss:0.011, GMR=0.131, Ampacity=64 0 . 000 
INSE^"^?^ ggll^ Toi^?ect"lV^e%l;?iI" '^"^^^ lastkey.'Object'); 

VALUES (-1, 44, 'Hen'); 
UPDATE ConductorType SET 

t^tSIb-^^"^®'^^--^-^^' Radius = 0.011, GMR=0.129, Ampacity=645 . 000 
tktci.dS Vfrrv^ 7^x1^^-^^*=^^ value from lastkey where las tkey= 'Object ') ; 

INSERT INTO Object (Object, TVpe, Name) 

VALUES (-1, 44, 'Osprey'); 
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UPDATE ConduccorType SET 

Resistance=0 .115, Radius = 0 .011, GMR=0 . 132 , AiT^acity=690 . 000 

WHERE Object = (Select value from lastkey where lastkey= ' Object ') ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Parakeet'); 

UPDATE ConductorType SET 

Resist ance=0 , 114 , Radius=0 . 012 , GMR=0 . 129 , Ampacity=700 . 000 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Dove'); 

UPDATE ConductorType SET 

Resistance=0 . 113 , Radius=0 . 012 , GMR=0 . 128 , Ampacity=710 . 000 

WHERE Object = (Select value from lastkey where las tkey= 'Object ') ; 

INSERT INTO Object (Object, Type, Name) 
VALUES (-1, 44, 'Rook'); 

UPDATE ConductorType SET 

Resistance=0 .100, Radius-0 .012, GMR=0 .126, Ampacity=765 . 000 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Object (Object, Type. Name) 
VALUES (-1, 44, 'Grosbeak'); 

UPDATE ConductorType SET 

Resistance=0 . 099 , Radius=0 . 013 , GMR=0 . 126 , Ampacity=775 .000 

WHERE Object = (Select value from lastkey where lastkey= 'Object ') ; 

INSERT INTO Grouping ( SystemVersion, Grouping, GroupingType, Member, MemberT-^cs. 
SELECT 0, 42, 42, Object, 44 , 52 
FROM Object where Type=44 AND Object • = 44; 
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*Ni)nRT xxMTO Object (Object, Type, Name) 

VALUES (-1, 43, 'BPA 500' )T 
Update Tower Type SET 
al_offset = -6.707, al.height = 21 . 951 , 
bl-Of fset = 0 .000, bl_height=31 . 402, 
cl_of f set = 6 .707, cl^height =21 . 951 , 
gl_offset=-3.811, gl_height=38.567, 
a2_of fset=O.O00, a2_height=0 . 000, 
b2_of fset = 0 .000, b2_heighc = 0 . 000 , 
c2_of fset = 0 .000, c2_height = 0 . 000 , 
g2_of fset=3 .811, g2_height=38 . 567 

INSEr"?^?^ ^^itcl Unttl'-l^li'^V^f^ '""'^^^ last)cey='Object',; 

VALUES (-1, 43, 'TVA500'); 
Updace TowerType SET 

al_offset = -12.195, al_height=33 . 232 , 
bl_of fset=0 .000, bl_height=33 .232, 
Cl_of fset=12.195, cl_height=33.232, 
gl-of fset=-10.061, gl_height=42.988, 
a2_of fset=0 .000, a2_height:=0 .000, 
^0-°!!^^*^=^ -000' i^2_height=:0.000, 
c2_of fset = 0 .000, c2_height=r0 . 000 , 
g2_of f set=10 . 061, g2.height=42 . 988 

INSE^^?^TO oUtc^^ 7oi^jIct?'T^i?"Nl^^? '"^^^^ lasc)cey='Object'); 

VALUES (-1, 43, 'APL 500')} 
Update TowerlVpe SET 
al_offset=-9.223, al_heighta28 . 049, 
bl_of fset=0 .000, bl_height=28.049, 
cl_of fset=9 ,223, cl_height=28 . 049, 
gl«of f set = -6 . 174 , gl_height=37 . 957 , 
- a2_of f set = 0 . 000 , a2_height=0 . 000 , 
b2_of f sec = 0 , 000 , b2_height=0 . 000 , 
c2_of f set = 0 . 000 , c2_height = 0 . 000 , 
g2_offset=6.174, g2_height=37 . 957 

WHERE Object = (Select value from lastkey where las tkey= 'Object ') ; 

.^NS^f^^^^.^-oupin^ Grouping, GroupingType , Member , MemberTVpe 

FROM Object where Type=43 AND Object != 43; 
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fll^R^Sh^^ i^^^' ^t^^ Unified information, Inc 
c'olym^l\l^rrt'ti.e 'v^lti'^cttel':''''' res4rved- under che 

pol^nr^^ ^^^^ l^eiLTo^ il g^?!Sl^fn^o^a?"^ . 
from Unified tnfornation; Inc ^^^'^ written license 

U^i?^iS3f?nSl^rfs"fSfSct\^l'r^^?ii-l^-' - disclosure by the 

INITIALIZE 

( 

Object = INTEGER; ,^ . ^ . 

OG = ARRAY OF GroupingClass • /• 2^^^^^ being edited */ 

OM = ARRAY OF MeasSreSentciiss • il S^^^P^^gs it belongs to -/ 

RO = ObjectSummaryClassV Measurements made on it */ 

1 = INTEGER; ^* ^^^^^nge replacement object 

)= /* Scratch integer */ 

BEGIN 

^^.^'^''^''^^'^^''^^^^''^''^^^(^^entUamB = 'O.GetAttributes ' ) ; 

On UserEvent 'T.GetAttributes '= 
BEGIN 

ROLLBACK; 

END; 

On UserEvent 'T. Update '= 
BEGIN 

COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGE^3D Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



ON UserEvent ' O .GetAttributes ' = 
/* 

* Get the object attributes, then get the type specific attributes 

•/ 

BEGIN 

REPEATED 

SELECT :0. Object = O. Object, 

:O.BaseType = O.BaseType, 
:O.Type = O.Type, 

rO.PrimaryGrouping = O . Primary Grouping, 
tO.TypeName = O.TypeName, 

:0. PrimaryGroupingName = O. Prima ry Group ingName, 

:O.Name = O.Name, 

:0. Description = ©.Description, 

:0. Comment = O. Comment, 

:0. Terminals = ©.Terminals, 

:O.InService = O.InService, 

rO.OutService = O .OutService, 

:O.PositionX = O.PositionX, 

lO.PositionY = O.PositionY, 

:O.OwnerNumber = O.OwnerNumber, 

lO.SerialNumber = O.SerialNumber , 

:O.SpecNiimber = O . SpecNumber , 

:0. Last Changed = O.LastChanged, 

:O.LastChangedQy = O.LastChangedBy 
FROM Object O 
WHERE : Object = ©.Object; 

INQUIRE_SQL < : i - ERRORNO ) ; 

IF i != 0 THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

CurFrame.WindowTitle = 

Squeeze (O. PrimaryGroupingName + ' ' + O.TypeName O.Name; 

If the object has no terminals, disallow access to the Network button 

IF ©.Terminals <= 0 THEN 

FIELD (Network) .CurBias = FB_Dimmed; 
ENDIF; 

Mark the identifiers as unchanged 

FIELD(0. PrimaryGroupingName) .HasDataChanged = FALSE; 



« 
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FIELD (O.TypeName) .HasDacaChanged = FALSE- 
FIELD (O . Name) .HasDataChanged = FALSE? 

Get the groupings and measurements also 

OG. Clear () ; 
i = 1; 
REPEATED 

SELECT :OG[i) .SystemVersion = G . SystemVersion. 
OG[i] .Grouping = G. Grouping, 
o^f^j -gro^PinglVpe = G .GroupingType, 
• -S^i^^^^^^^^P = G. Relationship 
OG[i] .Reference = G. Reference 
Grouping G 
: Object = G. Member 



FROM 
WHERE 
BEGIN 
i 

END; 



1; 



OM. Clear () 
i = 1; 
REPEATED 
SELECT 



FROM 
WHERE 
BEGIN 
i 

END; 



OMU] .MeasurandType = M.Measurandiype, 

-^^""^"^^1 = M.Terminall., *^ 
OM[i] .Tenninal2 = M. Terminal 2, 

S5f^3 •5®'^®^^'^® = M.Sensonype, 
22f^J -5®^^°^^^^^"^™ = M.SensorMinimum, 
SiJf ^1 = M.SensorHaximum, 

SJJ}^ = M.SensorAccuracy, 

SiJ - = M.ReversePolarity; 

OMU .MeasurerType = M.MeasurerOype, 
OM[i 3 .Measurer = M. Measurer 
OMfiJ. Alarm = M. Alarm, 
OM[i] .History = M. History, 

SiJf-M''''^^f'' " M. Trigger, 

OM ( a ] . EventLog = M . Even tLog, 

OM[i] .Input = M. Input, 

OM[i] .Output = M. Output 
Measurement M 
: Object = M.Measurand 



1; 



END; 



CurFrame.SendUserEvent ( Event Name = 'T.GetAttributes ' ) ; 
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ON Click Menu . File .Add, 
ON Click Add, 

ON UserEvenc 'O. Insert' = 
/* 

* Set up the object, get the key set up by the insert, and 

* update the object associated with it as part of the same transacticr 
*/ 

BEGIN 

REPEATED 

INSERT INTO Object 
(Object 
t Name 
.Type 
, TypeName 
, PrimaryGrouping 
, PrimaryGroupingName 
, Terminals 
) 

VALUES 
(-1 

, :O.Name 

, lO.Type 

, :0. TypeName 

, :0. PrimaryGrouping 

, : O . PrimaryGroupingName 

, :0. Terminals 

) ; 

INQUIRE_SQL ( : i = ERRORNO ) ; 

IF i 1= 0 THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

REPEATED 

SELECT :0. Object = K. Value 

FROM La St Key K 

WHERE K.LastKey = 'Object'; 

Object = O. Object; 

/* 

* Mark the identifiers as unchanged to prevent .warnings 

* on the update, 
*/ 

FIELD (O. PrimaryGroupingName) .HasDataChanged = FALSE; 
FIELD (O.TypeNcune) .HasDataChanged = FALSE; 
FIELD (O. Name) .HasDataChanged = FALSE; 

CurFrame . SendUserEvent (EventName = 'O.Update'); 

END; 

ON Click Menu. File. Replace, 
ON Click Replace, 
ON UserEvent 'O.Update' = 
BEGIN 

/» 

* Check if any of the identifier fields have changed. If so, warn 
the user, as this may be a hit on Replace when Add was intended 

*/ * 

IF ( FIELD (O. PrimaryGroupingName) .HasDataChanged = TRUE OR 

FIELD (O. TypeName) .HasDataChanged = TRUE OR 

FIELD(O.Name) .HasDataChanged = TRUE) THEN 

/*••' Replace with message read from Problem *♦♦«/ 

{V2.0 also use defaulting of buttons) **♦♦/ 
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IF fCurFrame .Conf irmPopup 

Pu!2lnI2ir"THEN'''°" overwrite an existing object', 

ROLLBACKS- 
RESUME; 
ENDIF; 

ENDIF; 

Update the ent arable parts of the object record in the database 
then update the type specific details. database, 

REPEATED 
UPDATE Object O 
SET Type = :0.iype, 

PrimaryGrouping = :0. PrimaryGrouping, 
TypeName = ; O . TypeNazne , 

PrimaryGroupingName = :0. Prima ryGroupingName, 

Name = rO.Name, 

Description = :0. Description, 

Comment = :0. Comment, 

InService = :0. InService, 

Out Service = :0. Out Service, 

PositionX = :O.PositionX, 

PositionY = rO.PositionY, 

OwnerNumber = lO.OwnerNumber, 

SerialNumber = :0. SerialNumber. 

SpecNumber = :0. SpecNumber, 

LastChanged = Date ('now'), 
TT^^^r^.^ LastChangedBy = DBMSInfo CUsemame') 
WHERE : Object = O. Object; 

Trash all the groupings in the database and replace them 
REPEATED 

DELETE FROM Grouping 
WHERE : Object = Member; 

i = 1; 

WHILE i <= OG.LastRowO DO 
REPEATED 

INSERT INTO Grouping 
(SystemVersion 
, Grouping 
, Group ingiype 
, Member 
, Member Type 
, Relationship 
, Reference 
) 

VALUES 

(:OG[i] .SystemVersion 

, :OG [i] -Grouping 

, : OG [ i ] . GroupingType 

, : Object 

, rO.iype 

, :OG[i] .Relationship 
, :OG[i) .Reference 
); 

X = i + 1; 
ENDWHILE; 

Trash all the measurements in the database and replace them 
REPEATED 

DELETE FROM Measurement 
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VyfHERE : Object = Measurand; 



i = 1; 

WHILE i <= OM.LascRowO DO 
REPEATED 

INSERT INTO Measurement 
(Measurand 
, Measurandiype 
, Terminall 
, Terminal 2 
, Sensoriype 
, SensorMinimum 
, SensorMaximum 
, Sens or Ac curacy 
, ReversePolarity 
, MeasurerType 
, Measurer 
« Alarm 
, History 
. Trigger 
, Event Log 
, Input 
, Output 



) 

VALUES 



Obj ect 



) i 

i = i 
ENDWHILE; 



OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM[i 
OM{i 
OM[i 
OM[i 
OM[i 
OM[i 
OMii 
OMii 

^ 1; 



Measurandiype 
.Terminall 
.Terminal2 
.SensorType 
. SensorMinimum 
. SensorMaximum 
. SensorAccuracy 
. Reverse Polarity 
.MeasurerType 
.Measurer 
.Alarm 
.History 
•Trigger 
. Event Log 
. Input 
.Output 



COMMIT; 



END; 



CurFrame . SendUserEvent ( EventName = ' T . Update ' ) ; 
Cur Frame. SendUser Event (EventName = ' O.GetAt tributes' ) ; 
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ON Click Menu . Fi le . Exchange = 
BEGIN 
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Go and get the piece of equipment to replace this one 

RO = CALLFRAME FindObject 

(Superiype = O.BaseTVpe 
) WITH 

WindowTitle = MenuButton (CurFrame .OriginatorField) . TextLabel ; 
IF RO IS NULL THEN 

ROLLBACK; 

RESUME; 
ENDIF; 

current^objlct/^^^^^^'"^'^ number of terminals as the 

SELECT :i s COUNT(*) 
FROM Object O, 
Object R 

WHERE :0. Object = O. Object AIJD 
:RO, Object - R. Object AND 
O. Terminals = R. Terminals; 

IF i s= 0 THEN 

RoElbackI^^^ replacement has a different number of terminals/ ; 

RESUME; 
ENDIF; 

^iJf^?2^? ^-^^ terminals, groupings and measurements. Negate 

the keys to prevent duplicates during the exchange. ^^gace 

UPDATE Terminal Tl 
FROM Terminal T2 
SET Object = - T2. Object 

Tl. Object AND :RO. Object = T2. Object) OR 
(:R0. Object = Tl. Object AND :0. Object = T2.0bjlct); 

UPDATE Terminal 

SET Object = - Object 

WHERE Object < 0; 

UPDATE Grouping Gl 
FROM Grouping G2 
SET Member = - G2 .Member, 

MemberType = G2 .MemberType 

WHERE PSa^^^^" = Gl .Member AND :RO. Object = G2. Member) OR 

(:R0. Object = Gl. Member AND :0. Object = G2. Member); 

UPDATE Grouping 

SET Member = - Member 

WHERE Member < 0; 

UPDATE Measuremen-t Ml 
FROM Measurement M2 
SET Measurand = - M2.Measurand 

WHERE j = Object = Ml .Measurand AND :RO. Object = M2 .Measurand) OR 
(:R0. Object = Ml. Measurand AND :0. Object M2 .Measurand) ; 

UPDATE Measurement 

SET Measurand = - Measurand 

WHERE Measurand < 0; 
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Now change the primary grouping and name 

UPDATE Object Ol 
FROM Object 02 
SET Type = - 02. Type, 

Primary Grouping = 02 . Primary Grouping, 

Name = 02 . Name 

WHERE (:O.Object = 01. Object AND :R0. Object = 02. Object) OR 
(:R0. Object = 01. Object AND :0. Object = 02. Object); 

UPDATE Object 

SET Type = - lype 

WHERE Type < 0; 

COMMIT; 

Stay with the same network position - so change to the new objecr 
Object = RO. Object; 

Cur Frame.SendUser Event (EventName = 'O.GetAttributes ' ) ; 



END; 
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ON Click Menu. Edit .lype, 
ON Entry O.TypeName = 
/ * 

Show the user the types that this object can belong to, so 

* that one may be selected 
*/ 

BEGIN 

i = O.iype; 

CALLFRAME Setiype (Object = O) ; 

IF i • = O.Type THEN 

FIELD (O.iypeName) .HasDataChanged = TRUE; 
ENDIF; 

RESUME; /♦ Keep input focus out of this field */ 

END; 

ON Click Menu. Edit .Groupings, 
ON Entry O. Prima ryGroupingName = 

* Show the user the groups that this object belongs to, so 

* that they can be edited 

BEGIN 

i = O. Prima ryGrouping; 

CALLFRAME SetGrouping (Object = O, OG = OG) ; 

IF i != O. PrixnaryGrouping THEN 

FIELD (O.PrimaryGroupingName) .HasDataChanged = TRUE; 

ENDIF; 

RESUME; /* Keep input focus out of this field ♦/ 

END; 
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ON Click Menu. Edit .Necwork_l, 
ON Click Network = 

BEGIN 

GlobalFrame [FrameSConneccivityEditor] . Frame . SendUser Event 
(EventName = ' LoadObject_Dl ' , Messagelnteger = Object); 

END; 

ON Click Menu - Edit .Network_2, 
ON Details Network = 

BEGIN 

GlobalFrame (FrameSConnectivityEdi tor I . Frame . SendUserEvent 
(EventName = ' LoadObject_D2 ' , Messagelnteger = Object); 

END; 

ON Click Menu. Edit .Measurements, 

ON Click Measurements = 

/* 

* Show the user the measurements made on this objects so 

♦ that they can be edited 
•/ 

BEGIN 

CALLFRAME SetMeasurement (Object = O, OM s OM) ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights -Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or disseminacion of the software 
and meaia is authorized only, pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



** Application: 

* • Procedure : 
*/ 

PROCEDURE ObjectEditor 

( 



PowerSy s t emModel 
ObjectEditor 



/* Object summary */ 
/* Editor frame name */ 
/* Editor frame title */ 



OS = ObjectSummaryClass ; 
FrameName - VARCHAR(2 0) NOT NULL; 
FrameTitle = VARCHAR(80) NOT NULL; 

BEGIN 

REPEATED 

SELECT .-FrameName = BT.EditorName 
FROM BaseType BT 

WHERE : OS. BaseType = BT.iype; 

IF FrameName = ' ' THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES (0, OS.TypeName, 'TVpe 006 ' ) ; 

ROLLBACK; 

RETURN; 
ENDIF; 



+ OS.TypeName + 



OS . Nam 



END; 



FrameTitle = OS . Prima ryGroupingName + 
FrameTitle = Squeeze (FrameTitle) ; 
OPENFRAME iFrameName (Object = OS. Object) WITH 

WindowTitle = FrameTitle, 
^^rr.If^^^^^^^^ " Should be parent frame of procedure 
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Copyright 1991, 19 92 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United Sta^tes . 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



** Application: 
•* Procedure: 
*/ 

PROCEDURE LoadiypeList 

( 



Power Sys t einModel 
LoadTVpeLi s t 



EE = EnumField; /* 
Startiype = INTEGER; /* 
Type = TypeClass; 
CList = ChoiceList; 
i = INTEGER NOT NULL; 
) = 
BEGIN 

Set up the values in the choice list 

CList - EF.ValueList; 

CList .Choiceltems .Clear ( ) ; 

CList .Choiceltems [1 ) -EnumValue = 0; 

CList. Choiceltems (1} -EnumText s 

i = 2; 

REPEATED 

SELECT : Type. Type := T.Type, 

: Type. Name = T.Name 
FROM Type T, 

ExtendedType ET 
WHERE :StartType = ET.SuperType AND 

ET.iype =s T.Type 
ORDER BY Name 
BEGIN 

CList .Choiceltems [i] .EnumValue = Type. Type; 
CList .Choiceltems [i] .EniimText = Type. Name; 
i = i + 1; 

END; 

Ensure it is updated on the screen 
EF , UpdChoiceList ( ) ; 

END; 



Enumerated field to be sec 
lype to start with •/ 
Scratch type */ 
Scratch choice list ehtr:^'' 
Scratch integer */ 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: PowerSystemModel 
Frame : Menu .File - CloseBut ton 



* * 

ON Click Menu. File. CloseBut ton 

BEGIN 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc 
fSd^^f^,-?"' "se duplication or dil^eSinaticn of ?he^|cware 

i^^!ip?|-^s'Iiplik^ii! -^-s'^"§t2°27^?gl!f^f°!-.iS 

INITIALIZE 
( 

Object = INTEGER; nK-!-.^*. w • • ^ 

OG = ARRAY OF GroupinoClass • /* 2^^®^^ being edited -/ 

OM = ARRAY OF Measurementci4ss - /I g^^^P^i^^s it belongs co 

RO = ObjectSummary^lfsl? ' Measurements made on ic •/ 

1 = INTEGER; ^cnange replacement object 

)= / Scratch integer */ 
BEGIN 

^^^.^'^''^''^^^^^'''^^^^^^^^^^^^^ritl^ame = 'O.GetAttributes ' ) ; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :C. Object = C. Object, 

:C.NominalMVAr C .NominalMVAr, ... 
'S'Y?iH^?^^^^^^^^y = C.VoltSensitivity, 

«rM^ :C.AVRDelay = C.AVRDelay ^' 

FROM Capacitor C 

WHERE : Object = C. Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Capacitor c 

SET NominalMVAr = :C .NominalMVAr , 

Y,^H^?^^^^^^^^y = :C.VoltSensitivity, 
AVRDelay = :C.AVRDelay ^' 
WHERE .-Object = C, Object; 

COMMIT; 

END; 
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Copyright 1991. 1.-92 by Unified Inforroation, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. """ct tne 

The spftware contained on this media is proprietary to and 
embodies the confidential technology of Unified Information Inc 
rS^^^fS^?"' "se, duplication or dissemination of the software 
and media is authorized only pursuanc to a valid written license 
from Unified Information, Inc. j-i-i-ch iiuense 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government IS subject to restrictions as set forth in 
i^^I!?!?lf^^s'l^plik^i^! 252.227-7013. or^llMS. 

INITIALIZE 

( 

0^^-''iR5AY^F^Gr4,r.^T.r.ri« Object being edited 

i = INTEGER-^^ il f^c^a^ge. replacement object 

)^ J-witutK, /* Scratch integer ♦/ 

BEGIN 

CurFrame. SendUserEvent (EventName = 'O.GetAttributes ' ) ; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :C. Object = C. Object, 

rC.ObjectAddress = C. Object Address, 

:C. Controller = C. Controller, 

:C.ControllerAddress C. Controller Address, 

:C. Cable = C. Cable 
FROM Coniputer C 
WHERE : Object = C.Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Coinputer C 

SET ObjectAddress = :C . ObjectAddress . 

Controller = :C. Controller, 

ControllerAddress = :C.ControllerAddress, 

Cable = :C. Cable 
WHERE : Object = C. Object; 

COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information Inc 
Possession, use, duplication or dissemination of the software 
and media IS authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
|^^Pf"?"P^^«^) (1> <ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 
( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSummaryClass; 

i = INTEGER; 

N = INTEGER NOT NULL; 

A = FLOAT NOT NULL; 

B = FLOAT NOT NULL; 

kV = FLOAT; 

Dab = FLOAT; 

Dbc = FLOAT; 

Dca = FLOAT; 

Deq = FLOAT; 

GMReg = FLOAT; 

Radius eq = FLOAT; 

R = FLOAT; 

X = FLOAT; 

Bch = FLOAT; 

ZBase = FLOAT; 

Omega = FLOAT; 

Pi = FLOAT NOT NULL; 

BEGIN 

Pi = 3.141592654; 

CurFrame . SendUserEvent (Event 

END; 



/* Object being edited ♦/ 
/* Groupings it belongs to */ 
/* Measurements made on it */ 
/* Exchange replacement objec 
/* Scratch integer */ 

/* Count ♦/ 
/* Scratch */ 
/* Scratch */ 
/* Voltage */ 

/* GMD a phase to b phase */ 

/* GMD b phase to c phase */ 

/• GMD c phase to a phase »/ 

/* Equivalent GMD ♦/ 

/♦ Equivalent GMR for bundle ' 

/* Equivalent radius for bund. 

/* Series resistance •/ 

/* Series inductive reactance 

/* Shunt susceptance */ 

/* Impedance base ♦/ 

/♦ Angular frequency •/ 

/* Pi •/ 



= ' O . GetAt tributes ' ) ; 



wo 94/06087 



PCr/US93/08233 



119 

ON UserEvenc 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :S. Object = S. Object, 
:S.R = S.R, 
:S.X = S.X, 
:S.Bch = S.Bch, 
:S. Length = S. Length, 
: S . TowerType = S . TowerType , 

: S . GroundConductorType = S . GroundConductorType , 
: S . PhaseConductorType = S . PhaseConductorType, 
:S.PhaseConductorCount = S . PhaseConductorCount , 
: S . PhaseConductorSpacing = S . PhaseConduccorSpacing 

FROM Conductor S 

WHERE : Object = S. Object ; 

REPEATED 

SELECT :kV = T.KVLevel 

FROM Terminal T 

WHERE :S. Object - T. Object; 

CurFrame . SendUser Event (EventName = ' GetTowerType ' ) ; 
CurFrame. SendUser Event (EventName = 'GetGroundConductoriype ' ) ; 
CurFrame .SendUser Event (EventName = 'GetPhaseConductoriype' ) ; 

ROLLBACK; 

END; 

On UserEvent 'GetTowerType' = 
BEGIN 

RE PEATED 

SELECT :S.TT. Object = TT. Object, 

iS.TT.Name = TTO.Name, 

:S.TT.Al_Of fset = TT. Al_Of f set , 

:S.TT.Al_Height TT. Al.Height , 

:S.TT.Bl_Of fset = TT.Bl_Of f set, 

;S.TT.Bl_Height = TT . Bl_Height , 

:S.TT.Cl_Of fset = TT.Cl_Of f set, 

:S.TT.Cl_Height = TT.Cl_Height , 

:S.TT.Gl_Of fset = TT.Gl_Offset, 

:S.TT.Gl_Height = TT. Gl_Height , 

:S,TT.A2_Offset = TT. A2_0f f set , 

:S.TT.A2_Height = TT. A2_Height , 

:S.TT.B2_Of fset = TT. B2_0f f set , 

:S.TT.B2_Height = TT. B2_Height , 

:S.TT.C2_Offset = TT.C2_0f f set , 

:S.TT.C2_Height = TT.C2_Height , 

:S.TT,G2_Offset = TT-G2_0f f set , 

:S.TT.G2_Height = TT.G2_Height 
FROM TowerType TT, 

Object TTO 
WHERE iS.TowerlVpe = TT. Object AND 

:S. TowerType = TTO. Object; 

ROLLBACK; 

END; 

On UserEvent 'GetGroundConductorType' = 
BEGIN 

REP E ATED 

SELECT :S.GCT. Object = GCT. Object, 
:S.GCT.Name = GOTO. Name, 
: S -GCT.Resistance = GCT. Resistance, 
: S .GCT. Radius = GCT. Radius, 
rS.GCT.GMR = GCT.GMR, 
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:S ,GCT. Ampacity = GCT. Ampacity 
FROM Conductor Type GCT, 

. Object GCTO 
WHERE :S .GroundConductorType = GCT. Object AND 
:S .GroundConductoriype = GCTO. Object; 

ROLLBACK; 

END; 

On UserEvent 'GetPhaseConductorTVpe' = 
BEGIN 

REPEATED 

SELECT :S.PCT. Object = PCT. Object, 

iS.PCT.Name = PCTO.Name, 

:S.PCT. Resistance = PCT. Resistance, 
• :S.PCT. Radius = PCT. Radius, 

:S.PCT.GMR = PCT.GMR, 

:S. PCT. Ampacity = PCT. Ampacity 
FROM Conduct orType PCT, 

Object PCTO 

WHERE :S.PhaseConductorType = PCT. Object AND - 
: S . PhaseConductorType = PCTO. Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 

BEGIN 

REPEATED 

UPDATE Conductor S 
SET R = :S,R, 

X = :S.X, 

Bch = rS.Bch, 

Length = :S, Length, 

Toweriype = : S . TowerType, 

GroundConductorType = : S . GroundConductorType , 
PhaseConductorType = :S . PhaseConductorType, 
PhaseConductorCount = : S . PhaseConductorCount , 
PhaseConductorSpacing =s : S . PhaseConduct or Spacing 
WHERE : Object = S. Object; 

COMMIT; 

END; 

ON Entry S.TT.Name = 
/* 

* Show the user the list of possible tower types 
BEGIN 

i = CALLFRAME SetObject (Type = Type $ Tower IVP© 

,DefaultObject = S.TowerType) ; 

IF i IS NOT NULL THEN 
S . TowerType = i ; 

CurFrame.SendUserEvent (EventName = 'GetTowerType ' ) ; 
CurFrame . SendUserEvent (EventName = 'Recalculate'); 
ENDIF; 

RESUME; /• Keep input focus out of this field ♦/ 

END; 

ON Entry S. GCT. Name = 

* Show the user the list of possible conductor types 
BEGIN 
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i = CALLFRAME SetObjecc (Type = TypeSConductorType . 

, DefaultObjecc = S .GroundConduccorTV'pe) ; 

IF i IS NOT NULL THEN 

S . GroundConductorType = i ; 

CurFrame .SendUserEvenc (EventName = ' GetGroundConduccorTi''pe * ) ; 
CurFrame . SendUserEvent (EventName = 'Recalculate'); 
ENDIF; 

RESUME; /* Keep input focus out of this field •/ 

END; 

ON Entry S.PCT.Name = 
/• 

• Show the user the list of possible conductor types 

•/ 

BEGIN 

i = CALLFRAME SetObject (Type = TVpeSConductorlVpe 

,DefaultObject = S - PhaseConductoriype) ; 

IF i IS NOT NULL THEN 

S . PhaseConduc tor Type = i; 

CurFrame . SendUserEvent (EventName = 'GetPhaseConductoriype ' ) ; 
CurFrame . SendUserEvent (EventName = 'Recalculate'); 

ENDIF ; 

RESUME; /* Keep input focus out of this field •/ 

END; 
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ON UserEvent 'Recalculate', 
ON ChildSetValue S = 
BEGIN 

IF S.TowerTVpe •= 0 AND 

S. PhaseConductorType •= 0 AND 
S. Length IS NOT NULL THEN 

Equivalent GMR and radius for bundles (from Doinmel eq. 56) 

N S5 S. PhaseConductorCount ; 

IF S.PhaseConductorSpacing > (2.0 » S. PCT. Radius ) THEN 

A = S . PhaseConduccorSpacing / (2.0 * SIN (PI / N) ) ; 
ELSE ' 

mcTT^^r^^ * ^^-^ * S.PCT. Radius) / (2.0 * SIN (PI / N) ) ; 

GMReq = (N * S.PCT. GMR * (A ** (N - 1) ) ) *♦ (1.0 / N) ; 
Radiuseq = (N * S.PCT. Radius * (A ** (N - 1) ) ) *• (i.o / N) 



« * 



<3et the GMD for each phase pair and the equivalent GMD 
(from Stevenson eq. 3.52) 

A = ABS (S.TT.Al_Height - S . TT.Bl_Height ) ♦* 2; 
B = ABS (S.TT.Al.Offset - S.TT.Bl Offset) *• 2; 
Dab = (A + B) ♦* 0.5; ~ 

IF S.TT.B2_Height •= 0 THEN 

A = ABS (S.TT.Al_Height - S . TT. B2_Height ) ** 2; 

B = ABS (S.TT.Al_Of fset - S.TT.B2 Offset) »» 2; 

Dab = (Dab * ( (A + B) *• 0.5)) **"0.5; 
ENDIF; 

A = ABS (S.TT.Bl_Height - S .TT.Cl_Height ) ** 2; 
B = ABS (S.TT,Bl_Of fsec - S . TT . Cl_Of f set ) ** 2; 
Dbc = (A + B) 0.5; 

IF S.TT.C2_Height J= 0 THEN 

» ^ - S.TT.C2_Height) •* 2; 

B = ABS (S.TT-Bl_Offset - S.TT.C2 Offset) 2; 
^.^,5^^ = * ((A + B) 0.5)) **"0.5; 

ENDIF; 

A = ABS (S.TT.Cl_Height - S .TT. Al_Height ) ** 2; 
B = ABS (S.TT.Cl_Offset - S.TT-Al Offset) ** 2; 
Dca = (A + B) 0.5; ~ 

IF S.TT.A2 Jeight != 0 THEN 

A = ABS (S.TT.Cl_Height - S . TT.A2_Height ) *• 2; 
B = ABS (S.TT.Cl.Of fset - S.TT.A2 Offset) ** 2; 
Dca = (Dca * ((A + B) ••0.5)) ••'"0.5; 

ENDIF; 

Deq = (Dab * Dbc • Dca) (1.0 / 3.0); 

Get the series reactance value in Ohms / Km (from Dommel eo 54) 
and convert it to per cent for the s^egment length. ^ 

Omega = 2 . 0 * Pi * SP . Frequency ; 
ZBase = (kV *♦ 2) / SP. MVABase; 

X = Omega * (2.0 * (10.0**-4)) • LOG (Deq / GMReq); 
S.X = X / ZBase * S. Length * 100.0; 

Get the shunt susceptance in Siemens / Km (from Dommel eq 58) 
and convert it to per cent for the segment length. 



3D0CID: <WO 940e087A1J_> 



wo 94/06087 PCr/US93/08233 



123 

Bch = Omega • (10.0**-6) / (18.0 - LOG (Deq / Radiuseq) ) ; 
S.Bch = Bch • ZBase • S, Length • 100.0; 

/• 

•* Get the resistance for the bundle in Ohms / Unit length 

and convert it to per cent, for the segment length. 
Add 2% for spiralling. 

*/ 

S.R = S . PCT. Resistance / S . PhaseConductorCount ; 
S.R = S.R / ZBase • S. Length • 100.0; 
S.R = S.R * 1.02; 

ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application : 
Frame: 



Powe r Sy s t emMode 1 
Conduct oriype 



INITIALIZE 

( 



Object = INTEGER; 
OG = ARRAY OF GroupingClass ? 
CM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame . SendUserEvent ( EventName = 

END; 



/* Object being edited */ 
/• Groupings it belongs to */ 
/* Measurements made on it */ 
/* Exchange replacement objec: 
/* Scratch integer */ 



'O.GetAttributes' ) ; 



ON User Event 
BEGIN 



' T . Get At tributes ' = 



Get the conductor details 



SELECT 



FROM 
WHERE 



:C. Ampacity = C. Ampacity, 
:C. Resistance = C .Resistance, 
: C.Radius = C.Radius, 
:C.GMR = C.GMR 
ConductorType C 
: Object =s C.Object; 



END; 



ROLLBACK; 



ON UserEvent 'T. Update' = 
BEGIN 

UPDATE 
SET 



END; 



WHERE 
COMMIT; 



ConductorType C 
An^acity = :C. Ampacity, 
Resistance = : C . Resistance, 
Radius = : C.Radius, 
GMR = :C.GMR 
: Object = C.Object; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information. Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 



Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSumjnaryClass? 

OS = ObjectSummaryClass; 

i = INTEGER; 

) = 

BEGIN 

CurFrame.SendUserEvent (EventName 

END; 



/* Object being edited ♦/ 
/* Groupings it belongs to * / 
/* Measurements made on it */ 
/* Exchange replacement objec 
/•** Temp 

/* Scratch integer */ 



= 'O.GetAt tributes' ) ; 



ON User Event 'T.GetAttributes ' = 
BEGIN 

REPEATED 
SELECT 



FROM 
WHERE 



C.Object = C. Object, 
C.Pfixed = C.Pfixed, 
C.Qfixed = C.Qfixed, 
C.Pnom = C.Pnom, 
C.Qnom s C.Qnom, 
C.PowerFactor = C . PowerFactor. 
C.PfixedPct = C.PfixedPct, 
C.QfixedPct = C.QfixedPct, 
C . PnomPct = C . PnomPct , 
C.QnomPct = C.QnomPct, 
C.PVexp = C.PVexp, 
C.QVexp = C.QVexp, 
C-PFexp = C.PFexp, 
C.QFexp = C.QFexp 
Consumer C 
: Object = C» Object; 



END; 



ROLLBACK; 



'T. Update' = 



ON UserEvent 
BEGIN 

REPEATED 

UPDATE Consumer C 
SET Type = lO.Type, 
Pf ixed 



C . Pf ixed, 
Qfixed = :C.Qfixed, 
Pnom = : C.Pnom, 
Qnom = : C.Qnom, 
PowerFactor = :C . PowerFactor, 
PVexp = :C.PVexp, 



Temporary - to speed rules 
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END; 



WHERE 
COMMIT; 



QVexp = 
PFexp = 
QFexp = 
: Object 



C. QVexp, 
C. PFexp, 
C . QFexp 
= C. Object; 



Am*p^^^^?^^^/^®2®^^^^ consumers - make it easy to chase up load model 

ON Properties O . PrxtnaryGroupingName = 
BEGIN 

IF. O. PrimaryGrouping 1= ObjectSNull THEN 
REPEATED 



SELECT 



FROM 
WHERE 



:CS, Object = O. Object, 
lOS.BaseType = O.BaseType, 
:OS.Type = O.IVpe, 

: OS . PrimaryGrouping = O. PrimaryGrouping, 
rOS.TypeName = O.TypeName, 
:OS.Name = O.Name, 

:OS.PrimaryGroupingName = O . PrimaryGroupingName 
Ob3ect O 

:0. PrimaryGrouping = O -Object ; 



CALLPROC ObjectEditor (OS 
ENDIF; 



OS) ; 



END; 
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Copyright 1991, 1992 by Unified Infonnation, Inc. 

l^oi^irt^t t^Ttm^t,r, l^.iL^tt^ il S^?!rir?n^o^t?^. X 

Possession, use, duplication or diiiemination of the^f^^S?;^^"^- 

subparagraph^ (c,^,l,^ai) of DFAKS 252 .22? 4!llr^^-S^^ 

INITIALIZE 

( • • 

Object = INTEGER; /* ak^^^^ u • 

OG = ARRAY OF G roup ingC las s • /* 9z^^^^ being edited 

OM = ARRAY OF MeasSre5entCl4ss • y* Groupings it belongs to •/ 

RO = ObjectSuimnaryClSI? ^yl Ev^h^«^®''^^ "^^^ 

i = INTEGER; ' f^^hange replacement object 

)= . ' Scratch integer ♦/ 

BEGIN 

END;^"^^^^"*^"^^'^^^^"^®'^^^^^®^^^^^ = 'O.GetAttributes') ; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :G. Object = G. Object, 

:G-RatedMVA = G.RatedMVA, 
:G-MiniinumMW = G.Mihiinuihl^, 
:G.BaseMW = G.BaseMW, 

^S-JJ^^?-"*""^ = G.MaximumMW, 
:G.MininiiiinMVAr = G .MinimumMVAr , 
.•G.BaseMVAr = G.BaseMVAr, 
:G.MaxiinuinMVAr = G . MaximxjinMVAr , 
:G.MinimuinkV = G.MinimumkV, 
rG.MaximumkV = G.MaximumkV, 
:G.X = G.X, 
:G.R = G.R, 

:G. Inertia = G. Inertia, 
:G. Dancing s G.Dairping, 
:G.ManualToAVR = G.ManualToAVR, 

'^•'^X?^°w^^^^^^^^ = G.AVRToManualLag, 

:G.AVRToManualLead = G , AVRToManualLead , 

:G.NonnalPF = G.NormalPF, 

:G.ShortPF = G.ShortPF, 

:G.LongPF = G.LongPF, 

:G.DownRainpRate = G .DownRampRate, 

:G.UpRainpRate = G . UpRampRate 
FROM Generator G 
WHERE : Object = G. Object; 

ROLLBACK; 

END; 
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ON UserEvenc 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Generator G 
SET RatedMVA = 

MinimumMW = 
BaseMW = :G 
MaximumMW = 
MinimtomMVAr 
BaseHVAr = 
MaximumMVAr 
MinimumkV = 
MaximumkV = 
X = :G.X, 
R = :G.R, 
Inertia = 
Damping = 



:G. RatedMVA, 
:G .MinimumMW, 

. BaseMW, 
:G. MaximumMW, 
= :G.MinimuinMVAr, 

:G.BaseMVAr, 
= : G . MaximumMVAr , 
: G . MinimumkV, 
:G. MaximumkV, 



END; 



WHERE 
COMMIT; 



:G -Inertia, 
:G. Damping, 
ManualToAVR = :G.ManualToAVR, 
AVRToManualLag = :G.AVRToManualLag, 
AVRToManualLead = :G . AVRToManualLead, 
NormalPF = :G.NormalPF, 
Short PF = :G.ShortPF, 
LongPF = :G.LongPF, 
DownRampRate = :G.DownRampRate, 
UpRampRate = : G . UpRaitipRate 
: Object = G. Object; 
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CopyriqhL 1991, 1992 by Unified 1 n lonnciL i uii . inc. 

All Rights Reserved. Unpublished rights reserved under th** 

copyright laws oC the United States. 

The software contained on this media is oroprietar-.- to and 
embodies the confidential technology' of Unified In'formation Inc 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information. Inc. 

RESTRICTED RIGHTS LEGEND Use. duplication, or disclosure the 
U.S. Government is subject to restrictions as set forth in 

«>f DFARS 252.227-7013, or in FAR 

52.227-19, as applicable. 
• / 

INITIALIZE 
( 

. Object being edited V 

OG = ARRAY OF GroupxngClass ; /• Groupings it belonos to */ 

OK = ARRAY OF MeasurementClass; MeasCreSlnts Side 2n it -/ 

i /ioteI^P^"^"^^^^^^'' Exchange replacemeS? object 

)^ ' ^* Scratch integer */ 

BEGIN 

CurFrame.SendUserEvent (EventName = 'O . GetAttributes ' ) ; 

OU UserEvent ' T. Get At tributes ' = 
BEGIN 

REPEATED 

SELECT : P. Object » p. Object. 

:P. Initials = P. Initials. 

:P.LoginName = P.LoginName. 

: P. Password = P. Password 
FROM Person P 
WHERE : Object = P.object; 

R0LLB.21CK; 

ErJD; 

0:*J UserEvent 'T. Update' = 
&EGIK 

REPEATED 

UPD.i^TE Person P 

SET Initials = :P. Initials, 

Log i nName = : P . Log inName . 
_ Password = : P. Password 

V.112.RE : Object = P.object; 

COM!-!IT; 

e::d; 
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Copyright 1991, 19 92 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

{ 

Object = INTEGER; 
OG = ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSummaryClass; 
i = INTEGER; 
) = 

BEGIN 

CurFrame . SendUserEvent (EventName 

END; 

ON UserEvent ' T. Get At tributes ' = 
BEGIN 

REPEATED 

SELECT :R. Object = R. Object, 

:R. Nomina IMVAr = R.NominalMVAr, 

: R. VoltSensitivity * R.VoltSensitivity , 

:R.AVRDelay = R.AVRDelay 

FROM Reactor R 

WHERE : Object = R. Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Reactor R 

SET NominalMVAr = : R.NominalMVAr , 

VoltSensitivity = :R. VoltSensitivity , 
AVRDelay = : R.AVRDelay 

WHERE : Object = R. Object; 

COMMIT; 

END; 



/* Object being edited ♦/ 

/* Groupings it belongs to •/ 

/* Measurements made on it */ 

/• Exchange replacement object • 

/• Scratch integer */ 



= 'O.GetAttributes' ) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
einbodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 
( 

Object = INTEGER; /* Object being edited ♦/ 

OG = ARRAY OF GroupingClass ; /* Groupings it belongs to •/ 

OM = ARRAY OF MeasurementClass ; /* Measurements made on it */ 

RO = ObjectSummaryClass; /* Exchange replacement objec 

i = INTEGER; /* Scratch integer */ 

) = 

BEGIN 

CurFreune. SendUser Event (Event Name = 'O.GetAttributes ' ) ; 

END; 

■ ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

REPEATED 

SELECT :S. Object = S. Object, 

: S .NormalOpen = S.NormalOpen 
FROM Switch S 
WHERE : Object = S. Object; 

ROLLBACK; 

END; 

ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UPDATE Switch S 

SET NormalOpen = : S . NormalOpen 
WHERE : Object = S. Object; 

CC^dMIT; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252,227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 

( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF MeasurementClass ; 

RO = ObjectSummaryClass ; 

i = INTEGER; 

) = 

BEGIN 

Cur Frame. SendUserEvent (EventName 

END; 

ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

REPEATED 
SELECT 



/* Object being edited */ 

/* Groupings it belongs to * / 

/* Measurements made on it */ 

/• Exchange replacement object 

/* Scratch integer */ 



= 'O. Get At tributes ' ) ; 



FROM 
WHERE 



T. Object = T. Object, 
T.TelemetryMinimum = T. TelemetryMinimum, 
T.Tel erne tryMaximum ~ T.Tel erne tryMaximum, 
T.XORMask = T.XORMask, 
T. Input = T. Input, 
T. Output = T. Output, 
T.CardAddress = T.CardAddress , 
T. WordAddress = T.WordAddress, 
T.Size = T.Size, 
T. Offset = T. Offset, 
T.PowerCable = T. PowerCable, 
T.RetumCable = T.ReturnCable, 
T.GroundCable = T.GroundCable, 
T.TerminationCable = T. TermxnationCable, 
T. Panel = T. Panel 
Telemetry T 
: Object = T. Object; 



END; 



ROLLBACK; 



'T. Update' = 



ON UserEvent 
BEGIN 

REPEATED 

UPDATE Telemetry T 
SET TelemetryMinimum = :T 
Tel erne tryMaximum = :T 
XORMask = : T.XORMask, 
Input = :T. Input, 
Output = :T. Output, 
CardAddress = : T.CardAddress, 
WordAddress = :T. WordAddress, 



TelemetryMinimum, 
Tel erne t ryMaximum , 
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Size = iT.SizB, 
Offset = ;T. Offset, 
PowerCable = : T. PowerCable', 
RecurnCable = : T. ReturnCable, 
GroundCable :T.GroundCable, 

off^t'^^^^S^S^^^? " :T.TerminationCable, 
Panel = 2 T. Panel 

WHERE : Object = T. Object ; 
COMMIT; 

END; 
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Copyright 1991, 1992 by Unified Information. Inc 
^oiy^mi\lU^^,ni.e SS?^^^i?|^eft^^" res4r^^^ 'under t.e 

The software contained on this media is oroDrietar^/ ^n ^nH 

from Unified Information? Inc? ^ ""^^^"^ written license 



Application: 
Frame: 



Power Sys temModel 
TowerType 



INITIALIZE 
( 

Object = INTEGER; 

OG = ARRAY OF GroupingClass ; 

OM = ARRAY OF Mea surement Class ; 

RO = ObjectSuflimaryClass; 

i = INTEGER; 

BEGIN 

,=.KTr^ C^^^^rame . SendUserEvent (EventName 

END; 

ON UserEvent ' T.GetAt tributes ' = 
BEGIN 

/• 

** Get the tower details 



/* Object being edited */ 
/• Groupings it belongs to */ 
/* Measurements made on it */ 
/• Exchange replacement obiec- 
/• Scratch integer */ 

'O. Get At tributes ' ) ; 



REPEATED 
SELECT 



FROM 
WHERE 



TT.Al^Offset = TT.Al^Offset, 

TT.Al.Height = TT.Al.Height, 

TT.Bl_Offset = TT.Bl_Offset, 

TT.Bl_Height = TT.BlJeight, 

TT.Cl.Offset = TT.Cl Offset, 

ISl-S^-Sfi^^^ = TT.CllHeight, 
TT.Gl_Offset = TT.Gl.Of fset, 
n-^i-5fi^^^ = TT.Gl_.Height, 
TT.A2.0ffset = TT.A2_0ffset, 
TT.A2_Height = TT.A2 Height, 
TT.B2_Offset = TT.B2_0ffset, 
H'SI-Sfi^^^ = TT.B2_Height, 
TT.C2_0ffset = TT.C2_Of fset , 
TT.C2_Height = TT,C2_Height , 
TT.G2.0ffset = TT.G2_0f f set , 
TT.G2_Height = TT.G2_Height • 

Toweriype TT 

: Object « TT. Object; 



END; 



ROLLBACK; 
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ON UserEvent 'T. Update' 



BEGIN 

UPDATE 
SET 



END; 



WHERE 
COMMIT; 



Toweriype 
Al_Of fset 
Al_Height 
Bl_Of f set 
Bl_Height 
Cl_Off set 
Cl_Height 
Gl_Of f set 
Gl_Height 
A2_0ffset 
A2_Height 
B2_Of fset 
B2_Height 
C2_Offset 
C2_Height 
G2_Of f set 
G2_Height 
: Object = 



TT 

:TT. 
:TT. 
;TT. 
; TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
:TT. 
;TT. 
:TT. 
TT.Obj 



Al_Of f set, 
Al_Height , 
Bl_Of fset , 
Bl_Height , 
Cl_Of f set , 
Cl_Height , 
Gl_Of f set , 
Gl^Height, 
A2_0f fset, 
A2_Height, 
B2_0f fset, 
B2_Height , 
C2_0f fset, 
C2_Height, 
G2_0f f set, 
G2_Height 
ect; 
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Copyright 1991, 1992 by Unified Information, Inc. 

Ail Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c> (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* Object being edited ♦/ 

/* Groupings it belongs to •/ 

/* Measurements made on it •/ 

/* Exchange replacement objec 

/• Scratch integer */ 



= 'O.GetAt tributes ' ) ; 



INITIALIZE 

( 

Object = INTEGER; 
OG = ARRAY OF GroupingClass ; 
OM = ARRAY OF MeasurementClass ; 
RO = ObjectSiimmaryClass ; 
i = INTEGER NOT NULL; 
) = 

BEGIN 

CurFrame . SendUserEvent (EventName 
END; 

ON UserEvent 'T.GetAttributes ' = 
BEGIN 

REPEATED 

SELECT :T. Object = T. Object, 
T. Phases = T. Phases, 
T.GMag = T.GMag, 
T.BMag = T.BMag, 
T.MagSatFlux = T.MagSatFlux, 
T.BMagSat = T.BMagSat 
FROM Transformer T 
WHERE : Object = T. Object; 

The number of terminals is determined by the number of windings, 
and can be changed. Set the terminal count in the object to 0 to 
prevent any confusion (especially if this is used as a template 
for an Add) 



©.Terminals = 0; 

CurFrame. SendUserEvent (EventName 
CurFrame . SendUserEvent (EventName 
ROLLBACK; 

END; 

ON UserEvent ' W.GetAttributes ' = 
BEGIN 

/* 

Get the winding data 

•/ 

i = 1; 
W.Clear () ; 



'W.GetAttributes ' ) ; 
'TS.GetAt tributes' ) 



RE PEATED 

SELECT :W[i] .Object = W. Object, 

:W[i] .Winding « W. winding. 
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:W[i]. Source = W. Source, 
: W [ i ] . Name = W . Name , 

'wf^l •f^^^^'^^?^^^^^^^ = W.LoadTapChanger, 

:W[i .NommalKV = W. NominalKV, 

:W[i j .NeutralKV = W.NeutralKV 

:W[i] .BIL = W.BIL, 

:W[i] .RatedMVA = W.RatedMVA, 

'wft = W.ShortTennMVA, 

• wri] .EmergencyMVA = W. EmergencyMVA, 

:W[i] .LowStep = W.LowStep, 

•Jtf 1) .HighStep = W.HighStep, 

:W[i] .Neutral Step = W.NeutralStep, 

'^f^ -5^^^^^^® = W.StepSize, 

FPnvf .PhaseShift = W.PhaseShif.t 

FROM Winding W 

WHERE : Object = W.ObiecC 

BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

END; 
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ON UserEvent 'TS .Get Attributes ' = 
BEGIN 

/* 

Get the tap setting measurements 

•/ 

i = 1; 

TS. Clear () ; 



REPEATED 
SELECT 



FROM 

WHERE 

BEGIN 



TS[i 
TS[i 
TS(i 
TS{i 
TS(i 
TS(i 
TS(i 
TS[i 
TS(i 
TS(i 
TSCi 
TSCi 
TS[i 
TS{i 
TS[i 
TS(i 
TS[i 
TS(i 
TS[i 
TS[i 
TS(i 
TSEi 
TS[i 
TS[i 
TS[i 
TS[i 
TS(i 
TSli 
TS(i 
TSti 
TS[i 
TSti 
TSIi 
TS[i 
TSti 
TS[i 
TSti 
TS(i 
TapSett 
: Object 



Object = TS. Object, 
Windingl = TS .Windingl , 
TapStepl = TS.TapStepl, 
Winding2 = TS.Winding2, 
TapStep2 = TS.TapStep2, 
Windings = TS. Windings, 
TapStepB = TS.TapStep3, 
Source = TS. Source. 
R0_l_2 = TS.R0_1_2, 
Z0_l_2 = TS-20_1_2, 
Rl_l_2 = TS,R1.1_2, 
Zl_l_2 = TS.Z1_1_2, 
R0_2_3 = TS.R0_2_3, 
20_2_3 = TS.Z0_2_3, 
Rl_2_3 = TS.R1_2_3, 
Zl_2_3 = TS.21_2_3, 
R0_3_l = TS.R0_3_1, 
20_3_1 = TS.Z0_3_1, 
Rl_3_l = TS.R1_3_1, 
Zl_3_l = TS.Z1_3_1, 
R0_1 = TS.R0_1, 
Z0_1 = TS.ZO^l, 
X0_1 = TS.XO^l, 
Rl_l = TS.R1_1, 
21_1 = TS.21_1, 
Xl_l = TS.Xl.l, 
R0_2 = TS.R0_2, 
20_2 = TS.Z0_2, 
X0_2 = TS.X0_2, 
Rl_2 = TS.R1.2, 
Zl_2 = TS.Z1_2, 
Xl_2 = TS.X1_2, 
R0_3 = TS.R0_3, 
Z0_3 = TS.20_3, 
TS.X0_3, 
TS . Rl_3 , 
TS . Zl_3 , 
TS.X1_3 



X0_3 

Zl_3 
Xl_3 = 
ing TS 
= TS. Object 



END; 



IF TS[il .Windingl != 0 THEN 

TSti] .WindinglName = W[TS fi) .Windingl ] .Name ; 
ENDIF; 

IF TSti] .Winding2 != 0 THEN 

TSli] .Winding2Name = W[TS[i] .Winding23 .Name; 
ENDIF; 

IF TS[i) .Windings != 0 THEN 

TSli] .WindingSName = WITS ti] .Windings] .Name; 
ENDIF; 

i + 1; 
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147 

ROLLBACK; 
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/♦ 

Edit a transformer winding 

*/ 

ON ChildProperties W = 
BEGIN 

IF FIELD (W) .Act iveRow = 0 THEN 

RESUME; 
ENDIF; 

CALLFRAME SetWinding (Winding = WtJ); 

END; 

ON DeieteRow W = 
BEGIN 

IF FIELD (W) .ActiveRow = 0 THEN 

RESUME; 
ENDIF; 



Check that the winding is not referenced by a tap setting 
i = 1; 

WHILE i <= TS.LastRowO DO 

IF TS[i] .Windingl = W[). Winding OR 
TS[i] .Winding2 = W[J .Winding OR 
TS[i] .Windings = WE J. Winding THEN 
FIELD (TS) .ActiveRow = i; 

INSERT INTO GrassCatcher (Object, Text, Problem) 

VALUES (:W(] .Object, :W[].Naine, ' Trans former 0 1 5 ' ) 
ROLLBACK; ~ 
RESUME; 
ENDIF; 

i = i + 1; 
ENDWHILE ; 

Back up any references to windings beyond this one 
i = 1; 

WHILE i <= TS.LastRowO DO 

IF TS [i] .Windingl > W[]. Winding THEN 

TS[i] .Windingl = TS [i J .Windingl - 1; 
ENDIF; 

IF TS(i) .Winding2 > W[]. Winding THEN 

TS(i) .Winding2 = TS [i J .Winding2 - 1; 
ENDIF; 

IF TSIi] .Windings > W[]. Winding THEN 

TSti] .Windings = TS(i] .Windings - 1; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

W,RemoveRow(RowNuinber = FIELD (W) .CurRow) ; 



END; 

ON ClearTable w 
BEGIN 



IF TS.LastRowO 1= 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
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VALUES ( :W[] .Object, 'Transformer 016') 
ROLLBACK; 
RESUME; 
ENDIF; 

w.clearO ; 

END; 
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Edit a transformer tap setting measurement 

r ChildProperties TS = 
BEGIN 

IF FIELD (TS) .ACtiveRow = 0 THEN 

RESXJME; 
ENDIF; 

OPENFRAME SetTapSetting (TapSetting = TS[], W = W) WITH 
WindowTitle = CurFrame .WindowTitle; 
END; 



.9406oe7A1_l_> 
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ON UserEvent 'T. Update' = 
BEGIN 

REPEATED 

UrDATE Transformer T 

SET Phases = :T. Phases, 

GMag = rT.GMag, 

BMag = :T.BMag, 

MagSatFlxix = :T.MagSatFlux, 

BMagSat = rT.BMagSat 
WHERE : Object = T.Object; 

CurFrame.SendUserEvent (EventName = 'W.Uodate')- 
cSmiTr ^^^''^^''^ (EventName . 'TiTupdate'} 

END; 
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ON UserEvenc. 
BEGIN 



'W. Update' = 



Preserve any terminals that are defined for the transformer by 
altering the terminal number so that it is not the same as the 
winding number, then delete all the windings. 

REPEATED 

UPDATE Terminal T 

SET Terminal = -Terminal 

WHERE : Object = T. Object; 

REPEATED 

DELETE FROM Winding W 

WHERE : Object = W. Objects- 
Loop through the table field, inserting each winding in turn, 
i = 1; 

WHILE i <= W.LastRowO DO 
REPEATED 

INSERT INTO Winding 
(Object 
, Name 

, LoadTapChanger 
, Nomina IKV 
,NeutralKV 
,BIL 

, RatedMVA 
, ShortTermMVA 
, Emergen cyMVA 
, LowStep 
, HighStep 
,NeutralStep 
, StepSize 
, PhaseShif t 



) 

VALUES 



( : Object 
W[i] .Name 

w[i) .LoadTapChanger 
W[i] .NominalKV 
W[i] .NeutralKV 
Wfi] .BIL 
W[i] .RatedMVA 
W[i] .ShortTermMVA 
W(il . Emergen cyMVA 
wfil .LowStep 
W(iJ .HighStep 
W[i} .NeutralStep 
W[i] .StepSize 
W[il -PhaseShif t 
) ; 

IF IIErrorNumber •= 0 THEN 

FIELD (W) .ActiveRow = i; 

CurFrame . PurgeUserEvent ( ) ; 

ROLLBACK ; 

RESUME; 
ENDIF; 



i = i ^- 1 ; 
ENDWHILE; 
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Update the new terminal associated with the windi-a w-irK -k^ 
connectivity information from the old terminal thaf w« 
preserved above. The match is done on thl^^tLIV rhf^ 



REPEATED 

UPDATE Terminal NT 

FROM Terminal OT 

SET Node = OT.Node 

WHERE : Object « NT. Object AND 
NT. Terminal > 0 AND 
: Object = OT. Object AND 
OT. Terminal < 0 AND 
OT.KVLevel = NT.KVLevel; 

REPEATED 

DELETE FROM Terminal 
WHERE : Object = Object AND 
Terminal < 0; 

i = W.LastRowO ; 

REPEATED 

UPDATE Object O 

SET Terminals = :i 

WHERE :Object = ©^Object; 



COMMIT; 

END; 
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ON UserEvent 'TS. Update' = 
BEGIN 

Blow away all the current measurements, and replace 
them with a new set (too many things can be edited to allow 
clean identification of the old row) 

REPEATED 

DELETE FROM TapSetting TS 
WHERE : Object s TS. Object ; 

i = 1; 

WHILE i <= TS.LastRowO DO 
Insert the new zneasurexnents 

REPEATED 

INSERT INTO TapSetting 
( 

Obj ect , 
windingl , 
TapStepl , 
Winding2 , 
TapStep2 , 
Windings , 
TapStep3 , 
Source, 
Rl-1-2 , 
Zl_l_2 , 
R0«1.2 , 
Z0_l_2, 
Rl_2_3 , 
Zl_2_3 . 
R0_2_3 , 
Z0_2_3, 
Rl_3_l , 
Zl_3_l, 
R0_3_l , 
Z0_3_l, 
Rl«l, 
Zl.l, 
Xl_l, 
R0_1, 
Z0_1, 
X0_1, 
Rl_2 . 
Zl_2, 
X1.2, 
R0_2, 
Z0_2, 
X0_2 , 
R1.3, 
Zl_3, 
Xl_3, 
R0.3, 
Z0.3, 
X0.3 
) 



VALUES 



( 



Object , 

TS[i) .Windingl, 
TS [i] .TapStepl, 
TS(i] .Winding2, 
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:TS[i J .TapSCep2, 

:TSfi) .Windings, 

;TS[iI .TapScep3, 
, :TS(i] .Source, 

:TS[i] .Rl_l_2, 

: TS ( i ] . Zl_l_2 , 

:TSfi] .R0_l_2, 

:TS(iJ -Z0_l_2, 

:TS(iJ .Rl_2_3, 

:TS(i] .Zl_2_3, 

:TSli] .R0_2_3, 

:TS fi] .20_2_3, 

:TS[i] .Rl_3_l, 

:TS[i) .Zl_3_l, 

:TS(i] .R0_3_l, 
:TS[i] .Z0_3_l, 
:TSfi] .Rl_l, 
:TS(i] .Zl_l, 
:TS(i) .Xl_l, 
iTSliJ .R0_1, 
:TS(i3 .Z0_1, 
:TS(i3 .X0_1, 
:TSIi] .Rl_2, 
:TS[i] .Zl_2, 
:TS[i] .Xl_2, 
:TS[i] .R0_2, 
:TS[i3 .Z0_2, 
:TSfi] .X0_2, 
:TSIi3 .Rl_3, 
:TS[i] .Zl_3, 
:TS(iJ .Xl_3, 
:TS(i] .R0_3, 
:TS[i) .20_3, 
:TS[iJ .X0_3 
) ; 

IF IIErrorNumber != 0 THEN 
FIELD ( TS ) . Act i veRow = i ; 

RESUME; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

COMMIT; 

END; 
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INITIALIZE 

Winding = WindingClass ; p^33^^ ^.^^^^^ 

BEGIN 

W = Winding.DuplicateO ; 



END; 

On Entry W.NominalKV 
BEGIN 



END; 



ON Click Apply_Button = 
BEGIN 

Winding . Name = W.Name; 

• LoadTapChanger = w . LoadTapChanoer - 
Windxng.NominalKV = W.NominalKV; 
Winding. NeutralKV = W.NeutralKV- 
Winding. BIL = W,BIL; o^^w. 
Winding. RatedMVA = W.RatedMVA- 

w^nnt^JH-ii!''^^^®™^^ = W.ShortTemiMVA; 
Winding . EmergencyMVA = W.EmergencvMVA- 
Winding. LowStep = W.LowStepT ^ ' 
Winding. HighStep = W.HighStep; 
Winding. NeutralStep = W.NeutralSten- 
Winding. StepSize = W.StepSizeT ^' 

^^^^^ilSir^''^^' = W.PhaseShift; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN FALSE; 

END; 
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f??^R^?hr= l^^^- ^ Unified information, inc. 

ImK^^°^'^''??® contained on this media is proprietary to and 



/* Passed tap setting */ 
/* Passed windings */ 



/** Scratch integer 



INITIALIZE 

( 

TapSetting = TapSettingClass; 
W = ARRAY OF WindingClass ; 

i = INTEGER NOT NULL; 

MinValue = INTEGER; 
MaxValue = INTEGER; 
NameplateMVA = FLOAT; 
KVCorrection = FLOAT; 
NameplateKV = FLOAT- 
CFl = FLOAT; 
CF2 = FLOAT; 
CF3 =: FLOAT; 
) = 

BEGIN 

I?f T^SIiJif •^^^^eList-.Choicelte^ .Clear ( ) • 

F^Ild ?i wiSdiSSh^ -Vfl^eList.ChoiceltlJSi ui^^^^ = 
FXELD^(TS.Windingl) .ValueList .Choiceltems [1] .EnumText = 



/• 



Min value for slider 
Max value for slider 
Rated MVA •/ 

""action for tap setting 
icy of measurement */ 
Winding 1 correction factor */ 
correction factor »/ 
correction factor 



Winding 2 
Winding 3 



0; 



END; 



WHILE i <= W.LastRowO DO 
ENDWHILE; 

?ISg!Ji:«li;y;iSl!i=l : fgSf?l:!5isgssli .-XJisffisj; 

TS = TapSetting.DuplicateO ; 

CurFrame . SendUserEvent ( Event Name = 
CurFrame . SendUserEvent ( EventName = 
CurFrame . SendUs er Even t ( Even t Name = 



= i; 
Wli) .Name; 



'TS.Windingl' ) ; 
'TS,Winding2' ) ; 
'TS- Windings ' ) ; 
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ON UserEvenc 'TS . Windingl ' , 
ON SetValue TS.Windingl « 

BEGIN 

IF TS.Windingl - 0 THEN 
MinValue = 0; 
MaxValue = 0; 

ELSE 

MinValue = W [TS .Windingl ) .LowStep; 
MaxValue = W( TS.Windingl] .HighStep; 
ENDIF; 

IF TS.TapStepl < MinValue OR 
TS.TapStepl > MaxValue THEN 
TS.TapStepl = (MinValue + MaxValue) / 2; 

ENDIF; 

IF MinValue = MaxValue THEN 

FIELD (TS.TapStepl) .MinValue = MinValue; 
FIELD (TS.TapStepl) .MaxValue = MaxValue 1; 
FIELD (TS.TapStepl) .UpdateBias = FB^Visible; 

ELSE 

FIELD (TS.TapStepl) .MinValue = MinValue; 
FIELD (TS.TapStepl) .MaxValue = MaxValue; 
FIELD(TS .TapStepl) .UpdateBias = FB_Changeable; 
ENDIF; 

END; 

ON UserEvent ' TS . Winding2 ' , 
ON SetValue TS.Winding2 = 

BEGIN 

IF TS.Winding2 = 0 THEN 
MinValue =0; 
MaxValue = 0; 

ELSE 

MinValue = W(TS .Winding2 ). LowStep; 
MaxValue » W[TS.Winding2] .HighStep; 
ENDIF; 

IF TS.TapStep2 < MinValue OR 
TS.TapStep2 > MaxValue THEN 
TS.TapStep2 = (MinValue + MaxValue) / 2; 

ENDIF; 

IF MinValue = MaxValue THEN 

FIELD (TS. Taps tep2) .MinValue = MinValue; 
FIELD (TS.TapStep2) .MaxValue = MaxValue ^ 1; 
FIELD(TS.TapStep2) .UpdateBias = FB^Visible; 

ELSE 

FIELD (TS.TapStep2) .MinValue « MinValue; 
FIELD (TS. Taps tep2) .MaxValue = MaxValue; 
FIELD (TS.TapStep2) .UpdateBias = FB_Changeable; 
ENDIF; 

END; 

ON UserEvent * TS . Winding3 ' , 
ON SetValue TS.Winding3 = 

BEGIN • 
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= 0; 



IF TS. Windings = 0 THEN 
MinValue = 0; 
MaxValue 

ELSE 

MinValue 
MaxValue 

ENDIF; 



IF 
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WITS. Windings] .LowStep; 
WITS. Windings] .HighStep; 



TS.TapStepS < MinValue OR 
TS.TapStep3 > MaxValue THEN 
^^^TS.TapStep3 = (MinValue + MaxValue) / 2; 

IF MinValue = MaxValue THEN 

l^ifJ'S J H-2;^P^^®P^^ -MinValue = MinValue; 

2^5' ^^5^S^®P3^ -MaxValue = MaxValue + l; 
„^IELD(TS.TapStep3) .UpdateBias = FB.Visible- 
£LjoE * 

FIELD (TS. Taps tep3) .MinValue := MinValue; 
FIELD (TS.TapStep3) .MaxValue = MaxValue; 
FIELD C TS . TapStep3 ) . UpdateBias = FB.Changeable ; 



END; 



3D0CID: <WO_94060e7A1_L> 



wo 94/06087 



PCT/US93/08233 



* 



162 



ON Click Apply_But 
BEGIN 

TapSetting 
TapSetting 
TapSetcing 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
TapSetting 
RETURNS- 
END; 



ton = 

.Windingl = TS.Windingl; 

. WindinglName = FIELD (TS .Windingl ) .CurEnumText ; 
.TapStepI = TS.TapStepl; 
.Winding2 = TS.Winding2; 

• WindingZName = FIELD ( TS. Winding2 ) .CurEnumText ; 
.TapStep2 = TS.TapStep2; 
.Windings = TS. Windings ; 

.Windings Name = FIELD (TS .Windings ) .CurEnumText ; 
TapStepS = TS.TapStepS; 
TS . Source ; 



. Source 
. Rl_1.2 
.Zl_l_2 
. R0_l_2 
. Z0_l_2 
.Rl_2_3 
. Z1_2_S 
.R0.2_S 
. Z0_2_3 

• R1^3-l 
- Zl-3_1 
.R0_3_l 

• Z0_S_1 
.Rl.l = 
.Zl_l = 
-Xl_l = 
.R0_1 = 
.Z0_1 = 
.X0_1 = 
.R1.2 = 
.Zl_2 = 
.Xl_2 = 
.R0_2 = 
.Z0_2 = 
.X0_2 = 
.R1_S = 
.Z1_S = 
.Xl_3 = 
.RO_S = 
.ZO_S = 
.XO 3 = 



= TS-R1_1_2 
= TS.Z1_1_2 
= TS.R0_1_2 
= TS-Z0_1_2 
= TS.R1_2_3 
= TS.Z1_2_3 
= TS.R0_2_3 
= TS.20_2_S 
= TS.R1_3_1 
= TS.21_3_1 
:= TS.R0_3_1 
= TS.Z0_3_1 
TS . Rl.l 
TS.21_1 
TS.X1_1 
TS.RO.l 
TS.Z0_1 
TS . X0_1 
TS . Rl_2 
TS.Z1_2 
TS.X1_2 
TS . R0_2 
TS.20.2 
TS.X0_2 
TS . Rl_3 
TS . 21_3 
TS . Xl_3 
TS.R0_3 
TS . 20_3 
TS.XO_S 



ON Click Cancel^Button 
BEGIN 

RETORN; 

END; 
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ON ChildSetValue TS = 
BEGIN 



/* 
* « 



IF TS.Z1_1_2 IS NULL THEN 

RESUME NEXT; 
ENDIF; 

Check that the windings are set up OK 
IF TS.Windingl = 0 OR TS.Winding2 = 0 THEN 

vLS^Pr^^l^SE^^^^^^ (Object, Problem) 
RESU^J^'-NiiT.^ 'Transfonner.OllM ; 

ENDIF; 

IF TS.WindingI = TS.Winding2 OR 
TS.Wxndingl = TS. Windings OR 
TS.Winding2 = TS. Windings THEN 
^^^^5?rS^/^5;S^^£^"^^^ (Object, Problem) 
RESuJ^S^ 'Transformer_012 ' ) ; 

ENDIF; 

Figure out the MVA correction 
i = 1; 

NameplateMVA = 0; 

WHILE i <= W.LastRowO DO 

IF Wli] .RatedMVA > NameplateMVA THEN 
^^NameplateMVA = w[i] .RatedMVA; 

i = i + 1; 
ENDWHILE; 

IF NameplateMVA = 0 THEN 

^'^^^SJrSSP/^Jil^SS^"^^^ (Object, Problem) 
RESU^I^T.^ =^^-^^3^^^' 'Transfonner^013 ' ) ; 

ENDIF; 

Do a sanity check on the measurements 

:?S. 21^1^2 < 3.0 OR TS. 21^1.2 > 15.0 OR 
TS.21.2_3 < 3.0 OR TS. 21^2^3 > 15,0 OR 
TS.21_3_1 < 3.0 OR TS.21_3 1 > 15 0 THEN 

^^^^TriSP^^i^^^^S^^^^^^ Tobject, Problem) 
gj^jP . VALUES ( : TS .Obj ect , ' Trans former.0 14 ' ) ; 

Figure out the voltage correction for each winding 

KVCorrection = (TS.TapStepl - W[TS .Windingll Neutralsi-oT^» 
IFNULL(W[TS.Windingl] .stepsize, oXv -^^^^-^^^^Step) 
NameplateKV = W [TS.WindingI ] .NeutralKV KVCorrection- 

" 7cl^Ji5?fP^^*'®^ / W[TS.Windingl] .NominalKV) 2?'* 
(SP.MVABase / NameplateMVA) ; 

on = (TS . TapStep2 - W[TS . Winding2 ] .NeutralStep) 
IFNULL(W[TS.Winding2J .StepSize, 0.0); "tep; 
NameplateKV = W [TS . Winding2 ] .NeutralKV * KVCorrection; 
" 7ri>'2,^?^^^^^^ / WtTS.Winding2] .NominalKV) 2) * 
(SP.MVABase / NameplateMVA); 
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Calculate the per-winding impedances etc 

IF TS.Winding3 = 0 AND 

TS.Z1_1_2 IS NOT NULL THEN 

TS.Z1_1 = 0.5 * TS.Z1_1_2 • CFl; 

TS.Z1_2 = 0,5 * TS.Z1_1_2 * CF2 ; 

TS-R1_1 = IFNULL(0.5 * TS.R1_1_2, 0.0) * CFl; 

TS.R1_2 = IFNULL(0.5 * TS.R1_1_2, 0.0) • CF2; 



IF TS.Z0_1_2 IS NOT NULL THEN 

TS.Z0_1 = 0.5 * TS.Z0_1_2 • CFl ; 
TS.Z0_2 = 0.5 * TS.Z0_1_2 * CF2 ; 
TS.RO.l = IFNULL(0.5 * TS.R0_1_2 * CFl, 
TS.R0_2 =: IFNULL(0.5 * TS.R0_1_2 • CF2, 

ENDIF; 



0.0) 
0.0) 



TS.X1_1 
TS.X1_2 

TS . X0_1 
TS,X0_2 



( (TS.Zl^l 
( {TS.Z1_2 

( (TS.ZO.l 
( (TS.Z0_2 



2) 
2) 

2) 
2) 



(TS.R1_1 
<TS.R1_2 



'2) ) 
'2)) 



(TS.R0_1 •*2)) 
(TS.R0_2 **2) ) 



5; 
5; 



0.5; 
0.5; 



ELSEIF TS.Z1_1_2 IS NOT NULL AND 
TS.Z1_3_1 IS NOT NULL AND 
TS.Z1_2_3 IS NOT NULL THEN 

KVCorrection = (TS.TapStep3 - W[TS .Winding3] .NeutralStep) 

IFNULL(WtTS.Winding3] .StepSize, 0.0); 
NameplateKV = WtTS.winding3] .NeutralKV KVCorrection; 
CF3 = ((NameplateKV / W[TS .Windings] .NominalKV) »• 2) * 

(SP.MVABase / NameplateMVA) ; 



TS.Z1_1 = 0,5 * (TS.Z1_1_2 + TS.Z1_3_1 - TS . Zl_2_3 ) * CFl 

TS.Z1_2 = 0,5 * (TS.Z1_2_3 + TS.Z1_1_2 - TS.Z1_3_1) * CF2 

TS-Z1_3 = 0.5 ♦ (TS.Z1.3_1 ^ TS.Z1_2_3 - TS.Z1_1_2) * CF3 

TS.Rl.l = IFNULL(0,5 • (TS.R1_1.2 + TS.R1_3_1 - TS.R1_2_3) 

TS.R1_2 = IFNULL(0.5 • (TS.R1_2.3 + TS-R1_1_2 - TS.R1_3_1) 

TS.R1_3 = IFNULL(0.5 • (TS.R1_3_1.+ TS.R1_2.3 - TS.R1_1_2) 



CFl, 
CF2, 
CF3, 



IF TS.Z0_1_2 IS NOT NULL OR 
TS.Z0_3_1 IS NOT NULL OR 
TS.Z0_2_3 IS NOT NULL THEN 
TS.ZD.l = 0.5 * (TS.Z0_1_2 
~~ ' 0.5 ♦ (TS.Z0_2_3 
0.5 * (TS.Z0_3_1 
IFNULL(0.5 
IFNULL(0.5 



TS.Z0_2 
TS.Z0_3 
TS . R0_1 
TS.R0_2 
TS.R0_3 
ENDIF; 



TS.Z0_3.1 - TS.Z0_2_3) * CFl 
TS.ZO.1.2 - TS.Z0_3_1) * CF2 
_ TS.Z0_2.3 - TS.Z0_1_2) * CF3 
(TS.R0_1_2 + TS.R0_3_1 - TS.R0_2_3) 
(TS.R0_2.3 + TS.R0_1.2 - TS-R0_3.1) 



' cf: 

* cf: 

= IFNULL(0.5 • (TS.R0_3_1 + TS.R0_2_3 - TS.R0_1_2) » CF: 



TS.X1_1 
TS.X1_2 
TS.X1_3 

TS.XO.l 
TS.XO 2 





( (TS.Zl 1 


* * 


2) 


- (TS 


.Rl_l 


* * 


2) ) 


* * 


0 


.5; 




( (TS.Zl 2 


• • 


2) 


- (TS 


.Rl 2 




2) ) 


♦ * 


0 


.5; 




( (TS.Z1_3 




2) 


- (TS 


.Rl_3 




2) ) 




0 


.5; 




( (TS.ZO^l 




2) 


- (TS 


.R0_1 




2) ) 


* * 


0 


.5; 




( {TS.Z0_2 


* • 


2) 


- (TS 


.R0_2 




2)) 


• » 


0 


.5; 




( (TS.-Z0.3 


* * 


2) 


- (TS 


.R0_3 




2) ) 


* *• 


0 


.5; 



Give the reactance the sign of the impedance 



IF TS.Z1_1 < 0 THEN 

TS.Xl.l = - TS.Xl_lj 
ENDIF; 



IF TS.Z1_2 < 0 THEN 
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TS.X1_2 = - TS.Xl 2; 
ENDIF; - 

IF TS.Z1_3 < 0 THEN 

TS.X1.3 = . TS.Xl 3; 
ENDIF; 

IF TS.Z0_1 < 0 THEN 

TS.X0_1 = - TS.XO 1; 
ENDIF; * 

IF TS.Z0_2 < 0^ THEN 
^,^^P-X0.2 = - TS.X0_2; 
ENDIF; 

IF TS.Z0_3 < 0 THEN 

TS.X0_3 = - TS,XO 3; 
ENDIF; 
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ENDIF; 

END; 



./ 
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Copyright 1991. 1992 by Unified Information. Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. "<rxvcu unaer tne 

The software contained on this media is proprietarv to and 
embodies the confidential technology of Unified infor^r^^r, t^,^ 
fnd^^fS'?"^ use, duplication or dil^eSini^iln^of ?he^ftSare 
fr^m'-^^iti^^ ?nlSS^f!^n!'"iL^"""^"^ " * ^^^^^^ writt^^'^Yf^Inse 

i^^iiv^^fi-L'sipiiL^ii! °^ ^^-^ 2l2^t!5f-?!l!?^l°I^^^ 

/* 

** Application: PowerSystemModel 

Frame: ConnectivityEditor 

INITIALIZE 

( 

FrameName = VARCHAR(20) NOT NULL; /• EditS? f / 

1 = INTEGER NOT NULL; /• f2i^??K ^ 

dummy = INTEGER; H f^"?^? integer •/ 

)^ ^ -i."XMcrt, Scratch integer */ 

BEGIN 

CurFrame.SendUserEvent (EventName = 'Close'); 
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ON ChildProperties D1.TI*].C = 
BEGIN 

CALLPROC ObjectEditor (OS = D1.T[].C[1); 

END; 

ON ChildDetails Dl.TCJ.C = 
BEGIN 

CurFrame . SendUserEvent ( EventNartie = ' LoadOb j ect_Dl ' , 

Messagelnteger = Dl.Tt] .c(] .Object) ; 
END; 

ON UserEvent ' LoadOb j €ct_Dl ' = 
BEGIN 

CurFrame. WindowVisibility = WV_Visible; 

/♦ 

* Gee a desription of the object 
RE PEA TED 

SELECT :D1.0. Object = O. Object, 

:D1 .0.Baseiype = O.BaseTVpe# 
:D1.0.Type = O.Type, 

:D1 .0, Prima ryG roup ing = O. PrixnaryGrouping, 

iDl.O.Name = O.Name, 

: Dl . O . TypeName = O.TypeNaxne, 

: Dl . O . Pr imaryGroupingName = O . PrimaryGroupingNcmie , 
: duinrny = : i 
FROM Object O 

WHERE : CurFrame -Messagelnteger = O. Object; 

/* 

* Get the terminals for the object 
•/ 

Dl.T. Clear () ; 
T_Row = 1; 

RE PEATED 

SELECT :D1 .T[T_Row) .Object = T. Object, 

:D1 .TtT_Row] -Terminal = T. Terminal, 

:Dl.T[T_Row] .Node = T.Node, 

:Dl.T[T_Row] .KVLevel = T.KVLevel, 

idumniy = :i 
FROM Terminal T 
WHERE :D1.0. Object = T-Object 
BEGIN 

FIELD(D1 .T[T_Row] .Terminal) .IsReverse = FALSE; 

/• 

* Load up all the things connected to this terminal 
*/ 

Dl.T[T_Rowl -C-ClearO ; 
C_Row =1; 

SELECT :Dl.T[T_RowJ .CiC.Row] .Object =0. Object, 

:D1 .T[T_RowJ .C[C_Row) .BaseType = O.Baseiype, 
:D1 .T(T_Row] .C (C_Row] .Type = O.Type, 

:D1 .T[T_Row] ,C [C_Row) . PrimaryGrouping = O. Prima ryG roup ing » 
:Dl.T[T_Row} .CIC_Row) .TypeName = O.TypeName,- 
:Dl.T[T_Row) .C(C_Row) -Name = O.Name, 

: Dl . T I T^RowJ . C [C_RowJ . PrimaryGroupingName = O . Pr imaryGroup 
: dummy = : i 
FROM Terminal T, 
Object O 

WHERE :D1 .T[T_Row] .Node != : Node $ Float ing AND 
:Dl.T[T_Row] .Node = T.Node AND 
:D1 .T[T_Row] -Object != T. Object AND 
T. Object s O. Object 
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BEGIN 

C_Row = C_Row + 1; 

END; 

T_Row = T_Row + 1; 

END; 

ROLLBACKS- 
END; 



SDOCID: <WO_9406087A1J_> 



wo 94/06087 PCr/US93/08233 



170 



ON ChildProperties D2.T(*].C = 
BEGIN 

CALLPROC ObjectEditor (OS = D2.T[3.cn); 

END; 

ON ChildDetails D2.T[*].C = 
BEGIN 

Cur Frame . SendUser Event ( Event Name = ' LoadOb j ect_D2 ' , 

Messagelnteger = D2 .T[ ) -C [] .Object ) ; 
END; 

ON UserEvent ' LoadOb j ect_D2 ' ~ 
BEGIN 

CurFrame .WindowVi Sibil ity = WV_Visible; 

/* 

Get a desription of the object 

♦/ 

REPEATED 

SELECT :D2.0. Object = O. Object, 

:D2 .0.BaselVP^ = O-BaselVpe* 
:D2-O.TVpe s O.TVpe» 

:D2 .0. PrimaryGrouping = O. PrimaryGrouping, 

: D2 . 0 . Name = O . Name , 

: D2 . 0 . TyrpeName = O.TypeName, 

:D2 .O. PrimaryGroupingName = O. Prima ryGroupingName, 
: dummy = :i 
FROM Object O 

WHERE : CurFrame .Messagelnteger s O.Object; 

. /• 

Get the terminals for the object 

*/ 

D2.T. Clear 0 ; 
T_Row = 1; 

REPEATED 

SELECT :D2 .T[T_Row] .Object = T. Object. 

:D2 .T[T_Row) .Terminal = T. TertniAial, 

:D2 .T[T_Row] .Node = T.Node, 

: D2 , T [ T_Row) . KVLevel = T . KVLevel , 

tduminy = :i 
FROM Terminal T 
WHERE :D2.0. Object = T. Object 
BEGIN 

FIELD (D2 .T(T^Row] .Terminal) . IsReverse = FALSE; 

/• 

• Load up all the things connected to this terminal 

•/ 

D2 .T[T_Row] .C.Clear () ; 
C_Row =1; 

R^s p^s^v^r^s^j 

SELECT :D2 .T[T_Row) .C[C_Row] .Object = O. Object, 

:D2 .TlT_Row] .CfC_Row] .BaseType = O.Baseiype, 
: D2 . T [T_Row] . C [ C_Row] . Type = O . Type , 

:D2 .T[T_Row] .C [C_Row) . PrimaryGrouping = O . PrimaryGrouping, 
:D2 .T[T_Row] .CtC_Row] .TypeName = O.TypeName, 
:D2 .T[T_RowJ .C[C_RowI .Name = O.Name, 

:D2 .T[T_Row) .C(C_Row] . PrimaryGroupingName = O. Prima ryG roup i: 
: dummy = :i 
FROM Terminal T, 
Object O 

WHERE :D2 .T[T_Row] .Node f= :Node$Floating AND 
:D2 .T[T.Row] .Node = T.Node AND 
:D2 -TtT_Row J .Object != T. Object AND 



SDOCID: <WO 9406087A1J_> 



wo 94/06087 



PCr/US93/08233 



171 

T. Object = O. Object 

BEGIN 

C_Row = C_Row + 1; 

END; 

T_Row ss T_Row + 1; 

END; 

ROLLBACK; 

END; 
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ON Click Disconnect = 
BEGIN 

IF FIELD { Dl. T) .CurrentRow = 0 THEN 

INSERT INTO GrassCaccher (Object, Problem) 

VALUES ( :D1 .0.Object, 'Object^OOS' ) ; 
ROLLBACKS- 
RESUME; 

ENDIF; 

IF F1ELD(D2.T} .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 
VALUES ( :D1.0. Object, 'Object 009'); 

ROLLBACK; 

RESUME; 
ENDIF; 

/* 

* If both the terminals are already connected to the same node, 

* then assiome that the user wishes to break them away from that 

• node. If the user is trying to connect to a disconnected terminal, 

♦ assume that they mean it. Create a new node, and assign the terminal 
"to connect to* to the new node. 

IF Dl.T[].Node = D2.Tt).Node OR 

Dl.T[].Node = NodeSFloating THEN 
UPDATE LastKey 
SET Value = Value + 1 

WHERE LastKey = 'Node'; 

SELECT :Dl.T[].Node = Value 
FROM LastKey 
WHERE LastKey = 'Node'; 

UPDATE Terminal 
SET Node = :Dl.T[).Node 

WHERE Object = :D1 .T[ ] .Object AND 
Terminal = :D1.T[] .Terminal; 

ENDIF; 

Connect the terminals by copying the "to connect to" terminal's node 
to the "to be connected" terminal's node. 

REPEATED 

UPDATE Terminal 
SET Node = :Dl.T[].Node 

WHERE Object = :D2.TI] .Object AND 
Terminal = : D2 . T ( ) . Terminal ; 

COMMIT; 

CurFrame.SendUserEvent (EventName = 'LoadObject_Dl' , 

Messagelnteger = Dl .O. Object ) ; 
CurFrame . SendUserEvent { EventName = ' LoadOb j ec t_D2 ' , 

Messagelnteger s D2 .O. Object) ; 

END; 
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ON Click D2_Connect = 



BEGIN 

IF FIELD ( D2. T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES { :D2.0. Object, 'Object 008'); 
ROLLBACK; 
RESUME; 

ENDIF; 

IF FIELD (Dl.T) .CurrentRow = 0 THEN 

INSERT INTO GrassCatcher (Object, Problem) 

VALUES (:D2.0. Object, 'Object 009'); 
ROLLBACK; 
RESUME; 

ENDIF; 



*/ 



END; 



If both the terminals are alreacb^ connected to the same node, 
then assume that the user wishes to break them away from that 
node. If the user is trying to connect to a disconnected terminal, 

-^S^or,«^^5 ^iJf^,."'®?? Create a new node, and assign the terminal 
to connect to" to the new node. 

IF D2,T[J,Node - Dl.T[].Node OR 

D2.T[].Node = NodeSFloating THEN 
UPDATE LastKey 
SET Value = Value + 1 

WHERE LastKey = 'Node'? 

SELECT : D2 . T [ ) . Node = Value 

FROM LastKey 

WHERE LastKey = 'Node'? 

UPDATE Terminal 
SET Node = :D2.T[].Node 

WHERE Object = :D2:T[] .Object AND 
Terminal = 2D2 .Tt] .Terminal; 

ENDIF; 

Connect the terminals ^y copying the -to connect to- terminal's node 
to the -to be connected- terminal's node. 

REPEATED 
UPDATE Terminal 
SET Node = :D2.T[l.Node 

WHERE Object = :D1.T[] .Object AND 
Terminal = :D1 .TI 3 .Terminal; 

COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadOb j ec t_D2 ' , 
^ ^ « ^„ Messagelnteger = D2.0. Object ) ; 

CurFrame . SendUserBvent ( EventName = ' LoadOb j ec t_Dl ' , 

Messagelnteger = Dl. O. Object) ; 
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ON ChildEntry Dl.T = 



BEGIN 



= 1; 



1 



WHILE i <= Dl .T.LastRow( ) DO 

FIELD (Dl.T[il .Terminal) .IsReverse = FALSE; 

i = i + 1? 
ENDWHILE; 

FIELD{D1.T[] .Terminal) .IsReverse = TRUE; 

END; 

ON ChildEntry D2.T = 



WHILE i <= D2.T.LastRow(} DO 

FIELD (D2.Ttil .Terminal) -IsReverse = FALSE; 

i = i + 1; 
ENDWHILE; 

FIELD (D2.T[] .Terminal) -IsReverse = TRUE; 

END; 



BEGIN 



= 1; 



1 



f 
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ON Click Dl_Disconnect = 
BEGIN 

i = FIELD(Dl.T) .CurRow; 
IF i = 0 THEN 

^^^^vlL^^^^m^^^^t^^^^ (Object, Problem) 
ROLLBACK^ < -O.ObDect , 'Object^OlO ' ) ; 

RESUME; 
ENPIF; 

UPDATE Terminal T 
PM'Lr. = :Node$Floating 

WHERE :D1.T[J .Object = T. Object AND 
:D1.T[] .Terminal = T. Terminal; 

COMMIT; 

CurFrame.SendUserEvent (EventName = ' LoadOb j ect.Dl ' 

CurFrame.SendUserEvent (EvI^tSS^f J^^^oidSbject^^^^ 
END; Messagelnteger = D2 .0. Object) ; 

ON Click D2_Disconnect = 
BEGIN 

i = FIELD ( D2 . T ) . CurRow ; 
IF i = 0 THEN 

^^^^5?tSST°/^S?®S^S£^^^^ (Object, Problem) 
ROLLBACK^ ^ • .0. Object , 'Object^OlO ' ) ; 

RESUME; 
ENDIF; 

UPDATE Terminal T 
t^tSI^^ T •NodeSFloating 

WHERE :D2.T{] .Object = T.Object AND 
:D2. T[] .Tezminal = T. Terminal; 

COMMIT; 

CurFrame.SendUserEvent (EventName = 'LoadObject Dl' 
CurFrame.SendUserEvent i^lnti^t^Tt^^^^^^^ 
END; Messagelnteger = D2 .0. Object ) ; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



*/ 

ON UserEvent 'Close', 

ON Click Menu. File.CloseBut ton = 

BEGIN 

CurFrame.WindowVisibility = WV^Invisible; 

END; 




Application : 
Frame : 



Power Sys t emModel 
Menu . File .CloseBut ton 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame : 



PowerSys t eniModel 
FindObj ect 



This frame can be called to find an object. The types of objects 
that will be presented may be restricted by passing a supertype 
to this frame - only the sxibtypes of this type will be shown for 
selection. 

The caller frame can also pass its frame identifier, the name of 
a user event and (optionally) an integer. If these are passed, 
then the selections made by the user are communicated to the caller 
by sending user events with the given name and integer and a message 
object of type ObjectSummaryClass . If the caller frame does not 
pass the frame identifier and event name, this frame returns with 
the user selection in an ObjectSummaryClass. 



INITIALIZE 
( 



SuperType = INTEGER NOT NULL; 
CallerFrame = FrameExec; 
CallerEvent = VARCHAR(32); 
Callerlnteger = INTEGER; 
i = INTEGER NOT NULL; 
Type = TypeClass; 

FO.Title = VARCHAR(32) NOT NULL; 
F_GroupingName_ Pattern = VARCHAR(22) 
F_ObjectName_Pattem = VARCHAR(22) ; 

) = 

BEGIN 



/* Passed super type for menu ' 

/* Passed calling frame */ 

/♦ Passed return event to call^ 

/♦ Passed info for caller */ 

/* Scratch integer ♦/ 

/♦ Scratch type */ 

/♦ Title for FO table field ♦/ 

/♦ Pattern for filter name */ 

/* Pattern for filter name */ 



Set up a list of all the types for the user to use as a filter 

FIELD (F_Type) .ValueList .Choiceltems. Clear () ; 

i = 1; 

IF SuperlVPe = 0 THEN 

F_1Vpe = TVpe$Object; 

ELSE 

F_iype = Superiype; 
ENDIF; 

REPEATED 

SELECT : Type. Type = T.TVpe, 

: Type. Name = T.Name 
FROM Type T, 

Extendediype ET 
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WHERE :F_TVpe = ET.SuperType AND 
ET.Type s T.iype AND 

ORDER BY^N^r"^^ ° ^'"'"^^ ' classification only" 

BEGIN 

SJfJ^ •^*^"®^^s'^-^^oi=®ItenisIi] .EnuinText = Tyoe Name- 
FlELD(F_Type) .ValueList.Choiceltemstil .EnumValGe = Tv|e^4; 

END; 

ROLLBACK; 

Save the original title of the table field 
FO.Title = FIELD (FO) .Title; 
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ON Click Lookup = 



BEGIN 

FIELD (FO) .Title = FO_Title; 
FO.ClearO ; 
i = 1; 

Set up the pattern for the GroupingNaxne match based on the selection. 

IF F.GroupWild = 0 THEN 

F_G roup i ngName_Pa 1 1 e m s= F_G roup i ngName ; 
ELSEIF F_GroupWild = 1 THEN 

F_GroupingNcune_Pattern = + F_G'roupi ngName '%'; 

ELSEIF F_GroupWild = 2 THEN 

F_GroupingNajne_Pattem = F_G ro up i ngName ^ '%'; 
ELSEIF F_GroupWild = 3 THEN 

F.GroupingName_Pattem = '%' + F_Groupi ngName; 
ENDIF; 

Set up the pattern for the ObjectName match based on the selection. 

IF F_ObjectWild = 0 THEN 

F_ObjectName_Pattem = F_Ob j ectName ; 
ELSEIF F_ObjectWild = 1 THEN 

F_ObjectName_ Pat tern = '%' + F_ObjectName- + '%'; 
ELSEIF F_ObjectWild = 2 THEN 

F_ObjectName_Pattem = F_ObjectName + '%'; 
ELSEIF F_ObjectWild = 3 THEN 

F_ObjectName_ Pat tern ss + F_ObjectName; 

ENDIF ; 



REPEATED 



SELECT 



FROM 
WHERE 



FO[i] .Object = O. Object, 
FO(i) .BaseType = O.BaselVpe, 
F0(i] .Type = O.iype, 

FO[i] . PrimaryGrouping » O.PrimarvGrouping, 
FOfij .TypeName = O.TypeName, . 
FO[i] .Name = O.Nazne, 

FO(i] . PrimaryGroupingName = O. PrimaryG roup! ngName 
Object O 

O.PrimaryGroupingNcune LIKE : F_G roup ingName.Pat tern AND 
O.Name LIKE :F_ObjectName_Pattern AND 



ORDER BY 



Type IN 

( 

SELECT 

FROM 

WHERE 

) 



ET.Type 

ExtendedType ET 
:F_Type = ET-Superiype 



BEGIN 
i 

END; 



PrimaryGroupingName , 
lypeName, 
Name 

i + 1; 



END; 



FIELD(FO) .Title = VARCHARd - 1) + 
ROLLBACK; 



+ FO_Title; 
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ON Click Apply_Button = 
/• 

*^ Pass the selected object (if any) back to the caller 

BEGIN 

IF FIELD (FO) , Act iveRow i= 0 THEN 

IF CallerEvent = ' ' THEN 
RETURN FO [ ] ; 

ELSE 

CallerFraine.SendUserEvent (EventName « CallerEvent 

,MessageObject = FO[) .Duplicate ( ) 
,MessageInteger = Callerlnteger 

ENDIF; 
ENDIF; 

END; 

ON Click Cancel Button « 
/* 

* Done for now 

*/ 

BEGIN 

RETURN NULL; 

END; 

ON Chi IdProper ties FO = 
*^ Edit the selected object 
BEGIN 

IF FIELD (FO) -ActiveRow != 0 THEN 

CALLPROC -ObjectEditor (OS = FOtl) ; 
ENDIF; '^v/iji, 

END; 
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and media is authorxzed onlv SnT-«?;f Sn"*^^^^^^'^, 9^ the software 
from Unified fnfo^^tion? iL^''''^'"^"^ ^ ^^^^^ vrritcen license 

RESTRICTED RIGHTS LEGEND Use duDliraM ^^r. ^ • 

U.S. Government is subiect to res?ii^??iS?' ciisclosure by the 



Application; 
Frame: 



Power Sy s temModel 
GrassCatcher 



INITIALIZE 



i = INTEGER NOT 'NULL; 
SGC = GrassCatcherClass; 

BEGIN 

i = 1; 

SELECT 



/* Scratch integer */ 

/* Scratch grass catcher •/ 



GC[iI. Object = GC. Object, 
GC[i| .Problem :r GC. Problem, 
GC[i].Text = GC.Text, 

'O-Object = O.Object. 

•2-^^^®'^® = O.BaseType, 
GC[i .o.ivpe = O.Type, 

f ^ 1 " 2 • £.^3.maryGrouping = o . PrimaxyGrounino 
i§fii:8:K^ra.NaS4?^^--' ^-upxng, 
;lc^^^^•?:^^^£!2{;^^^^^^^^ - O.PrimaryGroupingName, 

i^f^M-S®^®^^^^'.^ P-Severity, 
.GC[i J .P. Description = P. Description 
GrassCatcher GC, ^t^^-ion 
Object O, 
Problem P 

GC. Object s O.Object AND 
r.r>r>=.« GC. Problem = P. Problem 
ORDER BY 

Pr imaryGroupingName , 

TypeName, 

Name 

BEGIN 

i = i + 1; 

END; 



FROM 



WHERE 



END; 



ROLLBACK; 
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ON DeleteRow GC = 

• Wipe out all matching entries 
•/ 

BEGIN 

IF FIELD (GC) .Act iveRow != 0 THEN 
SGC = GC[) .DuplicateO ; 

DELETE FROM GrassCatcher GC 
WHERE : SGC. Object = GC. Object AND 
: SGC. Problem = GC. Problem; 

i = GC .LastRow( ) ; 

WHILE i > 0 DO 

IF GC(i] .Object = SGC. Object AND 
GC ( i ] . Problem = SGC . Problem THEN 
GC . RemoveRow { RowNumber = i ) ; 
ENDIF; 

i = i - 1; 
ENDWHILE; 

COMMIT; 
ENDIF; 

END; 

ON ClearTable GC * 
/• 

* Nuke the whole schmeer; throw in a quick MODIFY to reclaim space 
*/ 

BEGIN 

DELETE FROM GrassCatcher ; 
MODIFY GrassCatcher TO Btree 
ON Object, Problem; 

GC, Clear () ; 

COMMIT; 

END; 

ON ChildProperties GC = 
/• 

Edit the selected object 

*/ 

BEGIN 

IF FIELD <GC) .Act iveRow != 0 THEN 

CALLPROC ObjectEditor (OS = GC[].0); 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession^ use, duplication or dissemination o£ the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252,227-7013, or in FAR 
52.227-19, as applicable. 



/* 

*♦ Application: PowerSystemModel 

*♦ Frame: GroupingSelection 

•/ 

INITIALIZE 

( 

i = INTEGER; /* Scratch integer */ 

MenuEntry s Choiceltem; /* Scratch menu entry */ 

FrameName = VARCHAR(20) NOT NULL; /* Editor frame name */ 

ObjectSummary = ObjectSummaryClass ; /* Object summary */ 

) = 

BEGIN 

/• 

* Set up the top level "grouping" and load up its members 
*/ 

GH. Clear () ; 

GH[1] .Object = 0; 

GHtl] .BaseType = 0; 

GHtl] .Type = 0; 

GH[1] .PrimaryGrouping = 0; 

GH[1J .TypeName = 'Object'; 

GH[1] .Name = 'Object'; 

GH [ 1 ) . PrimaryGroupingName = ' Obj ect ' ; 

Ob j ectSummary = GH [ 1 ] ; 

CurFrame.SendUserEvent {EventName = 'GSLoadData' ) ; 

END; 

ON UserEvent 'GSLoadData' « 
BEGIN 

/♦ 

* Get the members of the selected group object 
*/ 

GS. Clear (); 
i = 1; 

REP EIATED 

SELECT :GS[i] .Object - O. Object, 

:GS[i] .BaseType = O.Baseiype, 
:GSti].Type = O.Type, 

:GS [i] .PrimaryGrouping = O . PrimaryGrouping , 
:GS (ij .TypeName = O. TypeName, 
:GS(i].Name = O.Name, 

:GS [i] .PrimaryGroupingName = O. PrimaryGroupingName 
FROM Object O, 
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Grouping G 

WHERE :ObjeccSuinrnary. Object = G.Groupino AND 

ORDER By°-**^^^ = O-O^Dect 

•XVpeName, 
Name 

BEGIN 

i = i + 1; 

END; 

ROLLBACKS- 
END; 
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ON ChildEntry GH = 



BEGIN 

IF FIELD (GH) .Cur Row != 0 THEN 
ObjectSummary = GH[]; 

Remove che entries lower down the hierarchy 

i = GH.LastRow( ) ; 

WHILE i > FIELD (GH) .CurRow DO 

GH • RemoveRow ( RowNumber = i ) ; 

i = i - 1; 
ENDWHILE; 

CurFrame - SendUserEvent (EventName = 'GSLoadData ' ) ; 
ENDIF; 

END; 

ON Chi IdDe tails GS. 
ON Click Members = 

BEGIN 

IF FIELD(GS) .ActiveRow *= 0 THEN 
Obj ectSummary = GS ( J ; 

Add the selected row to the end of the heirarchy 

i = GH.LastRow( ) ; 
GH[i -K 1] = GSI] -DuplicateO ; 

CurFrame . SendUserEvent (EventName = 'GSLoadData'); 
ENDIF; 

END; 

ON ChildProperties *GS = 
BEGIN 

IF FIELD (GS) -CurRow != 0 THEN 

CALLPROC ObjectEditor (OS = GS[1); 
ENDIF; 

END; 

ON Click Network = 
BEGIN 

IF FIELD (GS) .CurRow != 0 THEN 

GlobalFrame(Frame$ConnectivityEditor] .Frame. SendUserEvent 

(EventName = ' LoadOb j ect_Dl ' • Messagelnteger = GS[ ) .Object ) ; 

ENDIF; 

END; 

ON Details Network = 
BEGIN 

IF FIELD (GS) .CurRow 1= 0 THEN 

GlobalFrame(Frame$ConnectivityEditorl .Frame. SendUserEvent 

(EventName = •'LoadObject_D2 ' , Messagelnteger = GS [) .Object ) ; 

ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/• 

♦* Application: Power SystertModel 

** Frame: PSM 

*/ 

INITIALIZE 

( 

) = 

BEGIN 

/* 

** Set up the global variables from the database 

•/ 

SELECT : SP. Frequency = SP .Frequency , 
SP.MVABase = SP.MVABase, 
SP.KVRef erence = SP.KVRef erence, 
SP . LengthRatio = SP .LengthRatio, 
SP.GroundResistivity = SP .GroundResistivity , 
SP. Temperature = SP.Teir^erature 
FROM SystemParameters SP; 

CurFrame . SendUserEvent (EventName = 'StartGlobalFrames ' ) ; 
ROLLBACK; 

END; 

ON UserEvent 'StartGlobalFrames ' = 
BEGIN 

/* 

. * Start up all the global frames that the editors can use. Do this- 

* in subscript order so that the array extends correctly. 

*/ 

GlobalFrame [FrameSConnect ivityEdi tor) . Frame = OPENFRAME ConnectivityZdi 

END; 

ON ChildClick B = 
BEGIN 

CALLFRAME : CurFrame . Tr iggerField . Name ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



Power Sys temModel 
SetGrouping 



INITIALIZE 
( 

Object = ObjectClass; 

OG = ARRAY OF GroupingCiass ; 

Relationship = INTEGER NOT NULL; 

i = INTEGER NOT NULL; 

CList = ChoiceList; 

Type = TypeClass; 

OS = ObjectSummaryClass; 

) = 

BEGIN 



/* Object being edited •/ 

/* Passed groupings */ 

/* Relationship being added ' 

/♦ Scratch integer ♦/ 

/• Scratch choice list entr^' 

/* Scratch type */ 

/* Scratch Object summary •/ 



Show the object being worked on 

LO. Object = Object .Object; 
LO.BaseTVpe = Object .BaseType; 
LO.Type = Object. Type; 

LO. Prima ryG roup ing = Obj ect . PrimaryGrouping ; 
LO.TypeName = Object -TypeName; 
LO.Name = Object .Name; 

LO . PrimaryGroupingName s Ob j ect . PrixnaryGroupingName ; 

Load up the relationship (interaction) list 

CALLPROC LoadTypeList 

(EF - EnumFieldCFIELD(MG[*] .Relationship) .ProtoField) 
, Start Type = Type$ Interaction 
) ; 

Get the names for the grouping objects and set the 
primary grouping marker 



MG = OG.DuplicateO ; 
i = 1; 

WHILE i <= MG.LastRowO 
REPEATED 



DO 



SELECT 



MG[i] .GO. Object = GO. Object, 
MG[i) .GO. BaseType = GO. BaseType, 
MG(i] .GO. Type = GO. Type, 

MG(i] -GO. PrimaryGrouping = GO. PrimaryGrouping, 
MG ( i ]. GO . TypeName = GO. TypeName, 
MGti) -GO.Name = GO. Name, 

MG [ i ] . GO . PrimaryGroupingName = GO . PrimaryGroupingName 
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FROM Object GO 

WHERE :MG[i] .Grouping = GO. Object; 

IF MG[i] .Grouping = Object . Prima rvG roup ing THEN 
MG[i J .Primary =1; 

ELSE 

MG[i] . Primary = 0; 
ENDIF; 

FlELD(MGril .Primary) .HasDataChanged » FALSE; 
1 = i + 1; 
E.*JDWHILE; 

ROLLBACKS- 
END; 
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On Click Menu. Grouping. Member_of = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSObject 
,CallerFraine = CurFrame 
,CallerEvent = ' AddSelection ' 
,CalierInceger ^ TypeSMember^of 
) WITH 

WindowTitle = MenuBut ton (CurFrame .OriginatorField) .TextLabel; 

END; 

On Click Menu. Grouping .Made.by = 
BEGIN 

OPENFRAME FindObject 

( SuperType - Type$Manuf acturer 
, CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Made_by 
) WITH 

WindowTitle = MenuButton (CurFrame .OriginatorField) .TextLabel; 

END; 

On Click Menu . Grouping . Shovm^on = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSDrawing 
, CallerFraxne = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = lypeJShown.on 
) WITH 

WindowTitle = MenuButton (CurFrame .OriginatorField) .TextLabel ; 
END; 

On Click Menu. Load. Load_modeled_by = 
BEGIN 

OPENFRAME FindObject 

(SuperType = 1Vpe$ Consumer 
,CallerFraine = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = Type$Load_modeled_by 
) WITH 

WindowTitle = MenuButton (CurFrame -OriginatorField) .TextLabel; 

END; 

On Click Menu. Load.Load_f ami ly = 
BEGIN 

OPENFRAME FindObject 

(SuperType = Type SLoadF ami ly 
,CallerFrame = CurFrame 
,CallerEvent - 'AddSelection' 
,CallerInteger = Type$Load_modeled_by 
) WITH 

WindowTitle = MenuButton (CurFrame. OriginatorField) .TextLabel; 

END; 

On Click Menu. Load. Self = 
BEGIN 

CurFrame. SendUserEvent (EventName = 'AddSelection' 

.MessageObject = LO 

.Messagelnteger = Type$Load_modeled.by 
) ; 

END; 

On Click Menu. Rating. Rat ed_as = 
BEGIN 



5DOCJD: <WO ^9406087A1J_> 



wo 94/06087 PCr/US93/08233 



END; 



195 

OPENFRAME FindObject 

(SuperType = LO.BaseType 
,CallerFrame = CurFrame 
,CailerEvenc = ' AddSelection ' 
,Callerlnteger = 'iype$Rated as 
) WITH *■ 

WindowTitle = MenuBut ton (CurFrame. OriginatorField) .Text Label ; 



On Click Menu. Rating. Rating family = 
BEGIN ~ 
OPENFRAME FindObject 

(SuperType = TypeSRatingFamily 
, CallerFrame = CurFrame 
,CallerEvent = 'AddSelection' 
,CallerInteger = TypeSRated as 
) WITH " 



END; 



WindowTitle = MenuBut ton (CurFrame. OriginatorField) .Text Label ; 



On Click Menu. Rating. Self = 
BEGIN 

CurFrame. SendUserEvent (EventName * 'AddSelection 



END; 



,MessageObject = LO 
,MessageInteger = Type$Rated^as 

) ; 



On Click Menu. Location. Located with = 
BEGIN " 
OPENFRAME FindObject 

(SuperType s lypeSObject 
,CallerFrame = CurFrame 
,CallerEvent « 'AddSelection' 
,CallerInteger = TypeSLocated with 
) WITH " 

END- WindowTitle = MenuButton (CurFrame. Or iginatorField) .Text Label ; 

On Click Menu. Location. Self = 
BEGIN 

Cur Frame. SendUserEvent (EventName = 'AddSelection' 

^MessageObject s LO 
jMessagelnteger = TVpe$Located_with 

END; 
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ON UserEvent 'AddSe lection' = 
/• 

♦ Add the selection to the members' group list 

•/ 

BEGIN 

OS = ObjectSummaryClass (CurFrame.MessageObject ) ; 
Relationship = CurFrame.Messagelnteger ; 
i = 1; 

WHILE i MG.LastRowO DO 

IF MG [i) .Grouping = OS. Object AND 

MG[i] .Relationship = Relationship THEN 
INSERT INTO GrassCatcher (Object, Problem) 

VALUES (OS. Object, 'Object_011 ' ) ; 
ROLLBACKS- 
RESUME; 
ENDIF; 

i = i + 1; 
ENDWHILE; 

MG ( i 3 . Primary = 0 ; 

FIELD (MG[i 3 .Primary) .HasDataChanged = FALSE; 

MG[i].GO = OS. Duplicate () ; 

MG [ i 3 .Grouping = OS. Object; 

MG(ii .GroupingType = OS. Type; 

MGti] .Relationship = Relationship; 

MG{i] .Reference = 

END; 
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ON ChiidSetValue MG [•]. Primary = 
/* 

If this is being set, ensure it is the only one; set the active 
row to the one being selected. 

*/ 

BEGIN 

i = 1; 

WHILE i <= MG.LastRowO DO 

IF FIELD (MG[i] .Primary) .HasDataChanged = TRUE THEN 
FIELD (MG) .ACtiveRow = i; 

ELSE 

MG til -Primary = 0; 
ENDIF; 

FIELD (MGti] .Primary) -HasDataChanged = FALSE; 
i = i -f 1; 
ENDWHILE; 

END; 

ON ChildProperties MG = 
/* 

• Edit the selected object 
*/ 

BEGIN 

IF FIELD (MG) .ACtiveRow 1= 0 THEN 

CALLPROC ObjectEditor (OS = MG[l.GO); 
ENDIF; 

END; 

ON ChildDetails MG = 
/* 

* Show the details o£ the association ( 
BEGIN 

IF FIELD (MG) .ACtiveRow != 0 THEN 

IF MG[ ) .Relationship = TypeSMember^of THEN 

/* No details to show */ 
ELSEIF MG{] .Relationship = TypeSMade^by THEN 

/♦No details to show ♦/ 
ELSEIF MG{ ] .Relationship = TVpe$Shown_on THEN 

/♦ No details to show »/ 
ELSEIF MG [} .Relationship = Type$Load_modeied_by THEN 

CALLFRAME SetLoadCurve (Object = MG [] .Grouping) ; 
ELSEIF MG[] .Relationship = 'IVpe$Rated_as THEN 

CALLFRAME SetRating (Object = MG [] .Grouping) ; , 
ELSEIF MG[] .Relationship = Type$Located_with THEN 

CALLFRAME SetLocation (Object = MG [] -Grouping) ; 
ENDIF; 

ENDIF; 

END; 
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ON Click Apply_Bucton = 
/* 

Ensure that the objects' primary group is set correctly and 
• pass back the modified list 

*/ 

BEGIN 

Object . Prima ryG roup ing = 0; 
Object . Prima ryGroupingName = ''; 
i = 1; 
OG. Clear () ; 

WHILE i <= MG.LastRowO DO 

IF MG[i] .Primary = 1 THEN 

Object . PrimaryGrouping = MG I i) .Grouping; 

Object .PrimaryGroupingName = MG[i] -GO.Ncune; 
ENDIF; 

OG[i] = MGEi] .DuplicateO ; 
i = i -»- 1; 
ENDWHILE; 

RETURNS- 
END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013. or in FAR 
52.227-19, as applicable. 



/» 

• Application: PowerSystemModel 

♦ Frame : SetiCVLevel 
*/ 

INITIALIZE 
( 

kVLevel = FLOAT NOT NULL; /* Passed kVLevel ♦/ 

Voltage = ARRAY OF FloatObject; /♦ Defined voltages •/ 

i = INTEGER NOT NULL; /* Scratch integer */ 

) = 

BEGIN 

/* 

Set up a list of all the kVLevels 

•/ 

FIELD (F_kVLevel) .ValueList . Choicel terns .Clear () ; 

i = 1; 

SELECT :Voltage[i) .Value = kV. kVLevel 
FROM kVLevel kV 
ORDER BY Value 
BEGIN 

FIELD (F^kVLevel) .ValueList .Choicel terns [il . EnumTexc = 

VARCHAR (Voltage [i) .Value) ; 
FIELD (F_kVLevel) .ValueList -Choicel terns [i] . EnumValue = i; 

IF Voltage Ii] .Value = kVLevel THEN 

F_kVLevel = i; 
ENDIF; 

i = i + 1; 
END; 



END; 



ROLLBACK; 
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ON Click Apply_Butcon = 
*^ Pass the selected voltage level back to the caller 

BEGIN 

RETURN Voltage [ F^kVLevel] . Value ; 

END; 

ON Click Cancel_Button = 
/* 

Pass the original voltage level back to the caller 

BEGIN 

RETURN kVLevel; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 

/* 

* Application: PowerSysteiriModel 
*^ Frame: SetLoadCurve 

INITIALIZE 
( 

Object = INTEGER NOT NULL; /* Passed object */ 

i = INTEGER NOT NULL; /* Scratch integer */ 

Season = Ob^ectSummaryClass; /* Scratch season */ 

Dayiype = ObjectSummaryClass ; /♦ Scratch day type */ ' 

CList = ChoiceList; /• Refexence to choice list 

BEGIN 

/* 

* Set up the Season list 
•/ 

CList = EnumField (FIELD CLC[*] .Season) .ProtoField) .ValueList; 

CList.Choicertems.Clear() ; 

CList .Choiceltems rij .EnumValue = 0; 

CList.Choiceltemstl] .EnumText = 

i = 2; 

REPEATED 

SELECT : Season. Object = S. Object, 

: Season. Name = S.Name 
FROM Object S 
WHERE : Type $ Season = S.Type 
ORDER BY Name 
BEGIN 

CList .Choiceltems {i] .EnumValue = Season.Object ; 
CList -Choiceltems [i] .EnumText = Season. Name; 
1 = i 1; 

END; 

EnumField (FIELD (LC[*] .Season) .ProtoField) .UpdChoiceList ( ) ; 

* ^ Set up the DayType list 

CList = EnumField ( FIELD (LC(* 3 .Dayiype) .ProtoField) .ValueList; 

CList -Choiceltems. Clear () ; 

CList -Choiceltems [1] .EnumValue = 0; 

CList.Choiceltemstl) .EnumText = ''; 

i = 2; 

REPEATED 

SELECT : DayType. Object = DT.Object, 
: Dayiype , Name = DT.Name 
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FROM Object DT 

WHERE :Type$DayType = DT.Type 

ORDER BY Name 

BEGIN 

CList .ChoiceItems[il .EnumValue DayT/pe .Object ; 
CList .Choiceltexns (ij .EnumTexc = Day Type . Name ; 
i = i + 1; 

END; 

EnumField (FIELD (LC(*] -DayType) .ProtoField) .UpdChoiceList ( ) ; 

/* 

Load up the load curves from the passed object 

•/ 

i = 1; 
REPEATED 

SELECT :LCti] .Object = LC. Object, 

: LC [ i ). DayType = LC. DayType, 

: LC [ i ] . Season = LC . Season , 

:LC[i] -Temperature = LC. Temperature, 

: LC [ i 1 . LoadCurve = LC . LoadCurve , 

: LC [ i ]. Source = LC. Source, 

:LC[i] .Interpolate = LC . Interpolate 

FROM LoadCurve LC 

WHERE : Object = LC. Object 

BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

END; 

ON ChildEntry LC = 
/« 

• Display the list of values for the load curve 
•/ 

BEGIN 

i = 1; 
REPEATED 

SELECT :LV[il .LoadCurve = LV . LoadCurve , 

:LVli] .Time = LV.Time, 

:LV[i] .LoadValue = LV.LoadValue 
FROM LoadValue LV 

WHERE :LCI] .LoadCurve s LV. LoadCurve 

BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

END; 

ON ChildProperties LV = 
/* 

* Draw a graph of the load values 
•/ 

BEGIN 

CALLFRAME LoadCurveGraph (LV - LV) ; 

END; 
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INITIALIZE 
( 

LV = ARRAY OF LoadValueClass ; 

Xmax = INTEGER NOT NULL; 
Ymax = INTEGER NOT NULL; 
Xseg = FLOAT NOT NULL; 
Yseg = FLOAT NOT NULL; 
NextSegment = Segment Shape; 

LastX = INTEGER NOT NULL; 
LastY = INTEGER NOT NULL; 
NewX = INTEGER NOT NULL; 
NewY = INTEGER NOT NULL; 

Time = INTEGER NOT NULL; 
i = INTEGER NOT NULL; 

) = 
BEGIN 

Xmax = FIELD (load^subform) .Width; 
Ymax = FIELD (load^subform) .Height; 

Xseg 5= Xmax / 1440.0; /* Minutes per day */ 

Yseg » Ymax / 2.0; /♦ Load value range */ 

/* calculate the data points and line segments */ 

i=l; 

WHILE i <= LV.LastRowO DO 

Time = DATE_PART ( ' hours ' , LV [ i ] . Time ) • 60 ; 
Time = Time +• DATE_PART ('minutes', LVIiJ .Time) ; 
NewX = Xseg * Time; 

NewY = Ymax - (Yseg * LV[i] .LoadValue) ; 

IF i > 1 THEN 
- ' NextSegment = Segment Shape. Create () ; 

NextSegment . Set EndPoints { 

PointlX = lastx, 
PointlY = lasty, 
Point2X = newx. 
Point 2 Y = newy); 
NextSegment .LineWidth = LW_VERYTHIN; 
NextSegment .LineColor = CC_LIGHT_BLUE; 
NextSegment. ParentFIELD = FIELD ( load.sub form) ; 
ENDIF; 

Lastx = NewX; 
LastY = NewY; 
i = i 1; 
ENDWHILE; 

END; 
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Copyright 1991 , 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



Powe r Sy s t emMode 1 
SetLocation 



INITIALIZE 



Object = INTEGER; 

i = INTEGER NOT NULL; 



/* Passed object */ 
/* Scratch integer ♦/ 



BEGIN 



Build the list of co-located objects 

CO.Clear ( ) ; 
i = 1; 

REPEATED 

SELECT :CO[i1 .Object = CO. Object, . 

:CO{i] .BaseType = CO.BaseType, 
:CO[i) .lype = CO.iype, 

:CO(i j . PrimaryGrouping = CO. PrimaryGrouping, 

:COti] .Name = CO. Name, 

:CO[iJ .TypeName = CO.TypeName, 

: CO [ i 1 . Pr imaryGroupingName = CO . Pr imaryGroupingName 
FROM Object CO, 
Grouping G 
WHERE : Object = G -Grouping AND 

:Type$Located_with = G. Relationship AND 
G -Member - CO. Object 



BEGIN 
i 

END; 



= i 1; 



Set up the location description. Ensure that if there isn't one 
in the database, then the object reference is set to null and the 
last used text is left so that it can be edited- 

L. Object = Object $Null; 



REPEATED 
SELECT 



L. Object = L. Object, 

L. Combination = L. Combination, 

L. Phone = L. Phone, 

L. Contact = L. Con tact, 

L.Ll = L.Ll, 

L.L2 = L.L2, 

L.L3 = L.L3, 
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:L.L4 = L.L4, 

:L. Comment = L. Comment 
FROM Location L 
WHERE : Object = L. Object ; 



ROLLBACK; 

END; 
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ON Click Apply_Buccon = 
*^ Set up the location, if needed; then update it 
BEGIN 

IF L, Object e Object SNull THEN 
INSERT INTO Location 
(Obj ect 
) 

VALUES 

{ : Obj ect 
) ; 

ENDIF; 

UPDATE Location L 

SET Combination = : L.Coinbinationr 

Phone = :L. Phone, 
Contact = :L. Contact, 



LI 
L2 = 
L3 = 
L4 = 



L.Ll, 
L.L2, 
L.L3, 
L.L4, 



Comment s :L. Comment 
WHERE ; Obj ect = L.Object; 

COMMIT; 
RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURN; 

END; 

ON Chi IdProper ties CO « 
/* 

* Edit the selected object 

*/ 

BEGIN 

IF FIELD (CO) .CurRow 1 =s 0 THEN 

CALLPROC ObjectEditor (OS « COU); 
ENDIF; 



END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

A^l Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
einbodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or dissemination of the software 
f^Jf^^^M^f-^'S authorized only pursuant to a ■ valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government xs subject to restrictions as set forth in 
f2"^!!7"??ff^^s^Sipliki^i^^ Of DFARS 252.227-7013, or in FAR 



** Application: PowerSystemModel 

** Frame: SetMeasurment 

INITIALIZE 

( 

Object = ObjectClass; /♦ o^l^of^ Ko-ir^« ^^^^^^ 

BEGIN 

CurFrame.CurMode = FM.Query; 



V 



Show the object being worked on 

O. Object = Object .Object; 
O.Baseiype = Object .BaseType; 
O.TVpe = Object. Type; 

O . PrimaryGrouping = Object . PrimaryGrouping ; 
O.iypeName = Object .TypeName; 
C.Name t= Object.Name; 

O.PrimaryGroupingName = Ob j ect . PrimaryGroupingName ; 
Load up the type lists 

CALLPROC LoadiypeList 

(EF = EnumField{FIELD(ML[*] .MeasurandTVpe) .ProtoField) 
,StartType = Type $Measu rand 
) ; 

FIELD (M.MeasurandType) .ValueList = 

EnumField (FIELD (ML [*] .Measurandiype) .ProtoField) .ValueList; 

CALLPROC LoadTypeList 

(EF = EnumField(FlELD(ML[*] .Measureroype) .ProtoField) 
,StartType = Type$Measurer 

FIELD (M.MeasurerType) .ValueList = 

EnumField (FIELD (ML (•] .MeasurerType) . ProtoField) .ValueList ; 

CALLPR(X: LoadTypeList 

(EF = EnumField ( FIELD (M. Sensorivpe ) ) 
,StartType = TypeSSensor 
) ; 

Load the lists of valid terminals for the object 
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CLisc = FIELD (M.Terminall) .ValueLisc; 
CList .Choiceltems .Clear ( ) ; 
CList .Choicel terns [1] -EnumValue = 0; 
CList -Choiceltems [1] .EnumText = ' '; 
i = 2; 

REPEATED 
SELECT DISTINCT 

: Terminal = T. Terminal 
FROM Terminal T 
WHERE : Object .Object = T. Object 
ORDER BY Terminal 
BEGIN 

CList .Choiceltems [i] .EnumValue = Terminal; 

CList .Choiceltems [i] .EnumText = VARCHAR (Terminal) ; 

i = i + 1; 

END; 

FIELD (M.Terminall) .UpdChoiceList ( ) ; 
FIELD (M. Terminals) .ValueList = Clist; 
FIELD (M. Terminals ) .UpdChoiceList ( ) ; 

/* 

Build the list of measurements made on this object. 

*/ 

ML = OM.DuplicateC ) ; 
i = 1; 

WHILE i <= ML.LastRowO DO 
RE PE ATED 

SELECT :MLti3 .MO.Object = MO. Object, 

:ML[ij .MO.BaseType = MO. BaselVpe, 
:MLCi] .MO.Type = MO. Type, 

:ML [i i .MO . PrimaryGrouping = MO. PrimaryGrouping, 
:ML [ i ] .MO.TypeName = MO.TVpeName, 
:ML[i] .MO. Name = MO. Name, 

: ML [ i ] .MO . PrimaryGroupingName = MO , Prima ryGroupingName 
FROM Object MO 

WHERE :ML[i] .Measurer = MO.Object; 
i = i + 1; 
ENDWHILE; 

ROLLBACKS- 
END; 

ON ChildEntry ML = 
/• 

* Edit a measurement 
•/ 

BEGIN 

M = ML [ ] ; 

CurFrame.CurMode = FM^Update; 

END; 

ON ChildProperties ML = 
/• 

• Edit the selected object 
•/ 

BEGIN 

IF FIELD (ML) .Act iveRow != 0 THEN 



IF ML [1 .Measurer != 0 THEN 

CALLPROC ObjectEditor (OS = ML[J.*«3); 
ENDIF; 



ENDIF; 

END; 
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ON ChildProperties M.MO r= 
BEGIN 

IF M. Measurer 1= 0 THEN 

CALLPROC ObjectEditor (OS = M.MO) ; 
ENDIF; 

END; 

ON ChildDetails M.MO = 
BEGIN 

OPENFRAME FindObject 

(SuperType = TypeSSensing 
,CallerFraine = CurFrame 
,CallerEvent = 'UpdaceM.MO' 
,CallerInteger = 0 
) WITH 

WindowTitle = ' Find Measurer ' ; 
END; 

ON UserEvent 'UpdateM.MO' = 
BEGIN 

M.MO = ObjectSuinmaryClass (CurFrame. MessageObject) .DuplicaceO ; 
M.Measurer s M.MO. Object; 
FIELD (ML) .UpdFieldO ; 

END; 

ON ChildSecValue M = 
BEGIN 

FIELD (ML) .UpdFieldO; 

END; 

ON Click Apply^Button = 
/* 

Pass bac)c the modified list. 

•/ 

BEGIN 

i = 1; 

OM. Clear (); 

WHILE i <= ML.LastRowO DO 

OM[i] = ML[i] .DuplicateO ; 

i = i + 1; 
ENDWHILE; 

RETURN; 

END; 

ON Click Camcel^Button = 
BEGIN 

RETURN; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc 
Possession, use, duplication or dissemination of the software 
and media xs authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEI^ Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame : 



PowerSys t emModel 
SetObject 



INITIALIZE 

( 



Type = INTEGER NOT NULL; 

DefaultObject = INTEGER NOT NULL; 

i = INTEGER NOT NULL; 

s = VARCHAR(80) NOT NULL; 

OS = ObjectSummaryClass; 



/* Passed Type ♦/ 

/♦ Passed default object •/ 

/* Scratch integer •/ 

/* Scratch string */ 

/• Scratch Object */ 



BEGIN 

Set up a list of all the Objects for the user to use as a filter 
FIELD (F_Object) - ValueList.Choicel terns. Clear( ) ; 

REPEATED 

SELECT : OS. Object = O. Object, 

OS . PrimaryGroupingName = O. Primary Group ingName, 
OS.TVpeName = O.iypeName, 
OS. Name = O.Name 
FROM Object O, 

ExtendedTVpe ET 
WHERE :Type = ET.Superiype AND 

ET.TVpe = O.Type 
ORDER BY PrimaryGroupingName, TypeName, Name 
BEGIN 

s = OS . PrimaryGroupingName + ' ' + oS.iypeName + ' ' + OS. Name* 
s = Squeeze (s) ; * cuue, 

FIELD(F_Object) .ValueList.ChoiceItems[i] .EnumText = s; 
FIELD(F„Object} . ValueList.Choicel terns [i] .EnumValue = OS. Object; 

END; 



END; 



F_Object = DefaultObject; 
ROLLBACK; 



SDOCID: <WO_9406087A1_I_> 



wo 94/06087 



PCr/US93/08233 



216 

ON Click Apply^ButCon = 
/* 

* Pass the selected Object back to the caller 

-/ 

BEGIN 

RETURN F_Object; 

END; 

ON Click Cancel_Bucton = 
BEGIN 

RETURN NULL; 

END; 

ON Properties F_Object = 
/* 

Edit the selected object 

*/ 

BEGIN 

IF F_Object != Object $Null THEN 
RE PRATED 

SELECT : OS. Object = O. Object, 

rOS.BaseType = O.BaseType, 
: OS, Type = O.Type, 

:OS . PrimaryGrouping = O. Prima ryG roup ing, 
: OS . TypeName = O . lypeName , 
: OS. Name = O.Name, 

: OS . Pr imaryGroupingName = O . PriznaryGroupingName 
FROM Object O 
WHERE :F_Object ©.Object; 

CALLPROC ObjectEditor (OS = OS); 
ENDIF; 

END; 
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WW. WW, »« .WWWWW 

Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application : 
Frame : 



Power Syst emMode 1 
Set Rating 



INITIALIZE 



Passed object */ 
Scratch integer */ 
Scratch season */ 
Reference to season 



Object = INTEGER; 
i = INTEGER NOT NULL; 
Season = ObjectSummaryClass; 

SeasonList = ChoiceList; /* Reference to season list 

) = 

BEGIN 

Set up the Season list 

SeasonList = EnumField (FIELD (R [*]. Season) . ProtoField) .ValueList ; 
SeasonList .Choiceltems .Clear ( ) ; 
SeasonList .Choiceltems [1] .EnumValue = 0; 
SeasonList .Choiceltems [1] .EnumText = ' ' ; 
i = 2; 

SELECT .-Season .Object = S. Object, 

: Season. Name = S.Name 
FROM Object S 
WHERE :Type$ Season = S.Type 
ORDER BY Name 
BEGIN 

SeasonList.ChoiceltemsIi] .EnumValue = Season. Object; 
SeasonList .Choiceltems (ij .EnumText = Season. Name; 
i = i + 1 ; 

END; 

EnumField (FIELD (R[*] .Season) .ProtoField) , UpdChoiceList ( ) ; 

Build the list of co-rated objects 

CO.ClearO ; 
i = 1; 



REPEATED 
SELECT 



CO[i) .Object = CO. Object, 
CO[i] .BaseType = CO.BaseType, 
CO[il .Type = CO. Type, 

CO ( i ]. Prima lyGrouping - CO . Prima ryGrouping, 
CO(i) .Name = CO. Name, 
COfil .TypeName = CO .TypeName,• 
COIi ) . PrimaryGroupingName = CO.PrimaryGroupingName 
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FROM Object CO, 

Grouping G 
WHERE : Object = G. Grouping AND 

:Type$Rated_as = G . Relationship AND 

G.Meniber = CO. Object 

BEGIN 

i « i + 1; 

END; 

/* 

* Load up the ratings 

*/ 

R. Clear ( ) ; 
i = 1; 

RE PE ATED 

SELECT :R[iJ. Object = R. Object, 
:R[i) .Type = R.Type, 
:R[i] .Season = R. Season, 
:R[i] .Temperature = R . Temperature , 
:R[i] .Normal = R. Normal, 
:R[i3 .ShortTerm » R.ShortTerm, 
:R[i] .Emergency = R. Emergency, 
:R[i] .Loadshed s R.Loadshed 

FROM Rating R 

WHERE ; Object = R. Object 

ORDER BY lype. Temperature 

BEGIN 

i = i + 1; 

END; 

ROLLBACKS- 
END; 
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ON Click Apply_Button = 
/* 

Blow the ratings away, and re-load them 

•/ 

BEGIN 

DELETE FROM Rating WHERE : Object = Object; 
i = 1; 

WHILE i <= R.LastRowO DO 
INSERT INTO Rating 
(Object 
,Type 
, Season 
, Temperature 
, Normal 
, ShortTerm 
, Emergency 
, Loads hed 
) 

VALUES 



Object 
R[i3 .Type 
R[i3 .Season 
R(i] .Temperature 
R(i] .Normal 
R[i] .ShortTerm 
R[i] .Emergency 
R[i] .Loadshed 

) , 

i = i 1; 
ENDWHILE; 

COMMIT; 
RETURN; 

END; 

ON Click Cane el_But ton = 
BEGIN 

RETURN; 

END; 

ON Chi IdProper ties CO = 
/• 

Edit the selected object 

•/ 

BEGIN 

IF FIELD (CO) -CurRow != 0 THEN 

CALLPR(X: ObjectEditor (OS = CO[]); 
ENDIF; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



INITIALIZE 



Application: 
Frame : 



Power Sys t emModel 
FindType 



( 

Object = ObjectClass; 
i = INTEGER NOT NULL; 
Type = TypeClass; 
) = 

BEGIN 



/* Passed object */ 
/* Scratch integer */ 
/• Scratch type »/ 



END; 



Set up a list of all the types for the user to use as a filter 

FIELD (F_Type) .ValueList . Choicel terns . Clear < ) ; 

i = 1; 

F_Type = Object .Type; 
REPEATED 

SELECT : Type. Type = T.iype, 

:lS^e.Name = T.Name 
FROM Type T, 

ExtendedType ET 
WHERE rObject .BaseType = ET.SuperType AND 

ET.Type = T.TS^Je 
ORDER BY Name 
BEGIN 

FIELD (F_TVpe) -ValueList -Choiceltems [i] .EnumText s Type. Name; 
FIELD(F_Type) .ValueList .Choiceltems Ii] .EnumValue « Type. Type; 
i = i + 1; 

END; 

ROLLBACK; 
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ON Click Apply_Butcon = 
/- 

Pass the selected type back to the caller 

•/ 

BEGIN 

Object. Type = F_Type; 

Object .TypeName = FIELD (F_Type) .Cur EnuInText; 
RETURN; 

END; 

ON Click Cancel_Button = 
BEGIN 

RETURNS- 
END; 



•J 
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/••• ' 

Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software / 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



/* 

♦* Application: Power SysteinModel 

♦ * Frame : SystemParameters 

•/ 

INITIALIZE 
( 

i = INTEGER NOT NULL; /* Scratch integer */ 

OriginalKV = ARRAY OF kVLevelClass ; /* Original values in table 

) = 

BEGIN 

/* 

• Show the global copy of the system parameters 
•/ 

SPF = SP; 

CurFrame . SendUserEvent ( EventName s ' LoadkVLevel ' ) ; 

END; 

ON UserEvent 'LoadkVLevel' = 
BEGIN 

/* 

• Get the kV levels and make a copy of the original values 
*/ 

kV.Clear () ; 
i = 1; 

REPEATED 

SELECT :kV[i] .kVLevel = kV.kVLevel 
FROM kVLevel kV 
ORDER BY kVLevel 
BEGIN 

OriginalkV(i] =. kv[i] .Duplicate () ; 
i = i + 1 ; 

END; 

ROLLBACK; 

END; 

ON clearTable kv = 
BEGIN 

RESUME; 

END; 

ON DeleteRow kV= 
/• 

Attempt to delete the kVLevel entry, then re-load the table 

• field so the user can see the current state of affairs. 
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•/ 

BEGIN 

i = FIELD (kV) .CurRow; 
DELETE FROM kVLevel kV 

WHERE :OriginalkV(i] .kVLevel = kV.kVLevel; 
COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadkVLevel ' ) ; 

END; 

ON Insert Row kV= 
/* 

* Add a new row in the same position in the "original* array and 

* set the value to null. 
*/ 

BEGIN 

i = FIELD ( kV) .CurRow ; 
OriginalkV.InsertRow (RowNumber = i); 
OriginalkV[il .kVLevel = NULL; 

END; 

ON ChildSetValue kV = 
/* 

* Update the database immediately so that the user can 

* get any feedback, then re-load the table 

field so they can see the current state of a'f fairs. 

*/ 

BEGIN 

i = FIELD(kV) .CurRow; 

IF OriginalkVti) .kVLevel IS NULL THEN 
INSERT INTO kVLevel 
(kVLevel 
, Name 
, Voltage 
) 

VALUES 

( :kV[iJ .kVLevel fix up *♦*•/ 

,VARCHAR(:kV[i] .kVLevel) fix up 

, :kV{i] .kVLevel /♦»•• fix- up 

) ; 

ELSE 

UPDATE kVLevel kV 

SET kVLevel = :kV[i) .kVLevel, /♦♦♦• fix up ♦♦•*/ 

Name = VARCHAR( :kV[i] .kVLevel) , fix up 

Voltage = :kV[i) .kVLevel fix up ••••/ 

WHERE :OriginalkV[i] .kVLevel = kV. kVLevel; 
ENDIF; 

COMMIT; 

CurFrame . SendUserEvent ( EventName = ' LoadkVLevel ' ) ; 

END; 
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Copyright 1991, 1992 by Unified Information, Inc. 

All Rights Reserved. Unpublished rights reserved under the 

copyright laws of the United States. 

The software contained on this media is proprietary to and 
embodies the confidential technology of Unified Information, Inc. 
Possession, use, duplication or dissemination of the software 
and media is authorized only pursuant to a valid written license 
from Unified Information, Inc. 

RESTRICTED RIGHTS LEGEND Use, duplication, or disclosure by the 
U.S. Government is subject to restrictions as set forth in 
Subparagraph (c) (1) (ii) of DFARS 252.227-7013, or in FAR 
52.227-19, as applicable. 



Application: 
Frame: 



PowerSy s t eniModel 
Type 



INITIALIZE 
( 



i = INTEGER; 
Row = INTEGER; 
ErrorNumber = INTEGER; 
MenuEntry = Choiceltem; 
TypeName = VARCHAR(20) ; 
) = 

BEGIN 



/* Scratch integer */ 

/* Scratch integer */ 

/* Scratch integer •/ 

/* Scratch menu entry */ 

/* Local string variable 



Set up the lype Hierarchy table field. 



TH.Clear () 



SELECT 



FROM 
WHERE 



TH[l].Type = T.Type, 
TH[1] .BaseType = T.BaseType, 
TH[l].Naine ^ T.Name 
Type T 

T.iype = :Type$Object ; 



Set up the Type Selection table field. 

i = 1; 
TS.Clear () 
SELECT 



FROM 

WHERE 

ORDER 
BEGIN 
i 

END; 



TS[i].Type = T.Type, 
TS [ i ] . Baseoype = T.Baseiype, 
TSfij.Name = T.Name 
Type T, 
Supenype ST 

:TH[l].'iype = ST.SuperType AND 
ST. Type = T.Type 
BY Name 

= i * 1; 



END; 



ROLLBACK; 
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ON ChildSetValue TS = 
BEGIN 

/* 

* Insert a new type and it's supertype if the key is undefined, 

otherwise update the existing entry. 



END; 



IF TS[].Type = 0 THEN 
INSERT INTO Type 
{Type 
, BaseType 
,Naxne 
) 

VALUES 
(-1 

, :TH[TH.LastRow() ) .BaseType 
,:TSt).Name 

) ; 

INQUIRE_SQL( : ErrorNuinber = ERRORNO ); 

IF ErrorNuinber != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 
VALUES ( 0 , :TS [ ) - Name , ' Type_007 ' ) ; 

ROLLBACK; 

RESUME; 
ENDIF; 

SELECT :TS[).Type = K. Value 

FROM Last Key K 

WHERE K.LastKey = 'Type'; 

INSERT INTO SuperlVpe 
( Superiype 
,Type 

) 

VALUES 

( :THtTH.LastRow() ] .Type 
, :TSn .Type 
) ; 

ELSE 

UPDATE Type T 

SET Name = :TS[].Name 

WHERE :TSl].Type = T.iype; 

INQUIRE_SQL( : ErrorNuinber = ERRORNO ); 

IF ErrorNumber != 0 THEN 

INSERT INTO GrassCatcher (Object, Text, Problem) 

VALUES (0, :TS[).Name, "iype_007 ' ) ; 
ROLLBACK; 
RESUME; 
ENDIF; 
ENDIF; 

COMMIT; 
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ON DeleteRow TS = 
/» 

Delete the SuperType which points to this Type. Then delete the Type 
itself. 

•/ 

BEGIN 

DELETE FROM Superiype ST 
WHERE :TS[J.Type = ST. Type; 

INQUIRE_SQL ( : ErrorNumber = ERRORNO ) ; 

IF ErrorNumber = 0 THEN /* Query succeeded •/ 

DELETE FROM Type T 

WHERE :TS[].Type = T.Type; 

INQUIRE_SQL ( : ErrorNumber = ERRORNO ) ; 

IF ErrorNumber = 0 THEN 

TS.RemoveRowCRowNumber = FIELD ( TS ) -CurRow) ; 

ELSE 

ROLLBACK; 
ENDIF; 

ENDIF; 

COMMIT; 

END; 

ON ClearTable TS = 
BEGIN 

RESUME; 

END; 
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ON ChildEntry TH = 

^ * Load the Type Selection table field with the subclasses of the selected 

* type in the Type Hierarchy table field. 

w 

* Never allow the TH table field to get input focus. 
*/ 

BEGIN 

Row = FIELD (TH) .CurRow; 

i = 1; 

TS. Clear ( ) ; 

REPEATED 

SELECT :TS[i].Type = T.Type, 

: TS [ i ] . BaseType = T.BaseType, 

:TS(i].Naine = T.Name 
FROM Type T, 

Superrype ST 
WHERE :TH[ Row] .Type = ST.SuperType AND 

ST. Type = T.iype 
ORDER BY Name 
BEGIN 

i = i 1; 

END; 

/* 

* Remove everything below the current row starting at the end. 
*/ 

Row = TH. LastRow( ) ; 

WHILE Row > FIELD (TH) .CurRow DO 

TH.ReinoveRowCRowNuinber = Row) ; 

Row = Row - 1; 
ENDWHILE; 

ROLLBACK ■ 

RESUME; ' /* Throw away the rest of the events. 

END; 
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ON ChiidDetails TS, 

ON Click SubCiasses_Btn = 

/• 

Load the Type Hierarchy cable field wich the superclass of the selected 
type in the Type Selection table field. Then reload the Type Selection 
table field with the subclasses of that Type Hierarchy table field entry, 

•/ 

BEGIN 

IF FIELD (TS) .CurRow = 0 THEN /* If nothing is selected go away •/ 

ROLLBACK; 

RESUME; 
ENDIF; 

Row sr TH.LastRowO -i- 1; 

TH[Row) = TS[] .Duplicate () ; /* Copy the TS entry, to TH table field. •/ 

i = 1; 
TS.Clear ( ) ; 

REPEATED 

SELECT iTStiJ.Type = T.Type, 

: TS ( i ] . BaseType = T.Baseiype, 

:TS(ij.Name = T.Name 
FROM Type T, 

SuperType ST 
WHERE :TH[Row] .Type = ST. SuperType AND 

ST, Type = T.Type 
ORDER BY Name 
BEGIN 

i = i + 1; 

END; 

ROLLBACK; 

RESUME; /• Throw away the rest of the events. •/ 

END; 
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CLAIMS 

1. A method for creating an information model based on a 
physical system, comprising the steps of: 

identifying all physical elements in a system; 
creating an object table for said physical elements; 
determining a set of attributes common to each object; 

and 

grouping the objects by common attributes to establish 
a relationship between the elements which defines the 
physical system. 

2. The method of claim 1, further comprising the steps of: 
15 establishing a hierarchy of objects based on type 

relation among the objects. 



10 



20 



25 



• 3. The method of claim 2, wherein said hierarchy defines a 
type - supertype relationship . 

4. The method of claim 1, wherein said object table creating 
step further comprises the step of: 

assigning a unique surrogate key to each object by which 
said object is identified with said object table. 



5 . A method for creating a single source information model 
based on physical equipment in a power system, comprising the 
steps of: 

identifying all physical equipment in the power system; 
30 creating an object table for said physical equipment; 

determining a set of attributes common to each object; 

and 

grouping the objects by common attributes to establish 
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a relationship between the objects which defines the power 
system. 

6. The method of claim 5, further comprising the step of: 

5 assigning a unique surrogate key to each object by which 

the object is ]cnown in the object table. 

7. The method of claim 5, further comprising: 
establishing a defined user interface based on a window 

10 environment . 

8. The method of claim 5, further conprising: 

importing data from a proprietary database associated 
with a different system, such that a single point of 
15 maintenance is provided. 

9. The method of claim 5, further comprising: 

exporting data to a proprietary database associated with 
a different system, such that a single point of maintenance 
20 is provided. 

10. The method of claim 5, further comprising: 
assigning a network position identifier to selected 

objects which is independent of specific object attributes 
25 and which serves as a place holder within the power system 
- model. 

11. A method for creating a single source information model 
based on physical elements in a system, comprising the steps 

30 of: 

creating an extensible type hierarchy; 
identifying as objects said physical elements; 
collapsing said objects into tables, where attributes 
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specific to all objects below base types are collapsed into 
type tables, and all objects above base types are collapsed 
into object tables, using a common object table with 
surrogate keys; and 
5 externalizing and collapsing object relationships into 

tables, using typing to identify the type and relationship. 

12. The method of claim 11, further comprising the step of: 
allowing a user to extend said types down the hierarchy. 

10 

13. A single source information model based on physical 
equipment in a power system, coirtprising: 

an object table, including a plurality of objects which 
identify all physical equipment in the power system, each 
15 object including a set of common attributes, said objects 
being grouped by said common attributes to establish a 
relationship between the objects which defines the power 
system. 
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